home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / purebasic_demo / purebasic / compilers / purebasic.asm < prev    next >
Encoding:
Assembly Source File  |  2000-02-28  |  85.8 KB  |  3,307 lines
  1. ;
  2. ; PureBasic Demo V1.30 generated code
  3. ;
  4. ; © 2000 Fantaisie Software
  5. ;
  6.         MOVEM.l d0-d7/a0-a6,-(a7)
  7. ;
  8. ; CreateBank()
  9. ;
  10.         MOVEQ   #34,d0
  11.         JSR    _PB_AllocVec
  12.         MOVE.l  d0,a4
  13. ;
  14. ; OpenAmigaLibs()
  15. ;
  16.         MOVE.l  a6,6(a4)
  17.         LEA.l  _GraphicsName(pc),a1
  18.         MOVEQ   #0,d0
  19.         JSR    -552(a6)
  20.         MOVE.l  d0,10(a4)
  21.         LEA.l  _IntuitionName(pc),a1
  22.         MOVEQ   #0,d0
  23.         JSR    -552(a6)
  24.         MOVE.l  d0,14(a4)
  25.         LEA.l  _DosName(pc),a1
  26.         MOVEQ   #0,d0
  27.         JSR    -552(a6)
  28.         MOVE.l  d0,18(a4)
  29.         BRA    _ALib_Suite
  30. _IntuitionName
  31.         dc.b    "intuition.library",0
  32. _DosName
  33.         dc.b    "dos.library",0
  34. _GraphicsName
  35.         dc.b    "graphics.library",0,0
  36. _ALib_Suite
  37. ;
  38. ; InitPBLibBank()
  39. ;
  40.         LEA.l  _PBLibBank,a0
  41.         MOVE.l  a0,d1
  42.         LEA.l  _PBLibBankOffset(pc),a0
  43.         MOVE.l  #3,d0
  44.         MOVE.l  a4,a1
  45.         ADD.l   #22,a1
  46. _PBLibLoop
  47.         MOVE.l  (a0)+,(a1)
  48.         ADD.l   d1,(a1)+
  49.         SUBQ    #1,d0
  50.         BNE    _PBLibLoop
  51.         BRA    _PBLibNext
  52. _PBLibBankOffset
  53.         dc.l    160
  54.         dc.l    242
  55.         dc.l    586
  56. _PBLibNext
  57. ;
  58. ; InitString()
  59. ;
  60.         MOVE.l  #5000,d0
  61.         JSR    _PB_AllocVec
  62.         MOVE.l  d0,a3
  63.         MOVE.l  d0,-(a7)
  64.         MOVEQ   #0,d0
  65.         MOVEQ   #40,d1
  66.         MOVE.l  d1,d2
  67.         MOVE.l  $4,a6
  68.         JSR    -696(a6)
  69.         MOVE.l  d0,(a4)
  70.  
  71. ;
  72. ; ***********************************
  73. ;
  74. ; Screen example file for PureBasic
  75. ;
  76. ;   © 1999 - Fantaisie Software -
  77. ;
  78. ; ***********************************
  79. ;
  80. ;
  81. ; InitScreen(1) ; We will need 2 screens
  82.         MOVEQ   #1,d0
  83.         MOVE.l  6(a4),a6
  84.         MOVE.l  30(a4),a5
  85.         JSR    -252(a5)
  86. ; If FindScreen(0,"") ; Find de default public screen
  87.         MOVEM.l d1-d7/a0-a2,-(a7)
  88.         LEA.l  _S1,a0
  89.         MOVEQ   #0,d0
  90.         MOVE.l  14(a4),a6
  91.         MOVE.l  30(a4),a5
  92.         JSR    -340(a5)
  93.         MOVEM.l (a7)+,d1-d7/a0-a2
  94.         TST.l   d0
  95.         BEQ    _EndIf1
  96. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  97.         LEA.l  _S2,a0
  98.         MOVE.l  a0,d1
  99.         MOVE.l  18(a4),a6
  100.         MOVE.l  22(a4),a5
  101.         JSR    -138(a5)
  102.         MOVEM.l d1-d7/a0-a2,-(a7)
  103.         MOVE.l  30(a4),a5
  104.         JSR    -70(a5)
  105.         MOVEM.l (a7)+,d1-d7/a0-a2
  106.         MOVE.l  18(a4),a6
  107.         MOVE.l  22(a4),a5
  108.         JSR    -54(a5)
  109. ;  HideScreen() ; Hide it
  110.         MOVE.l  14(a4),a6
  111.         MOVE.l  30(a4),a5
  112.         JSR    -258(a5)
  113. ;  Delay(10)    ; Wait a little bit...
  114.         MOVEQ   #10,d1
  115.         MOVE.l  18(a4),a6
  116.         MOVE.l  22(a4),a5
  117.         JSR    -160(a5)
  118. ;  ShowScreen() ; and show it !
  119.         MOVE.l  14(a4),a6
  120.         MOVE.l  30(a4),a5
  121.         JSR    -20(a5)
  122. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  123.         LEA.l  _S3,a0
  124.         MOVE.l  a3,-(a7)
  125.         JSR     PB_CopyString
  126.         MOVEM.l d1-d7/a0-a2,-(a7)
  127.         MOVEM.l d1-d7/a0-a2,-(a7)
  128.         MOVE.l  30(a4),a5
  129.         JSR    -30(a5)
  130.         MOVEM.l (a7)+,d1-d7/a0-a2
  131.         MOVE.l  26(a4),a5
  132.         JSR    -82(a5)
  133.         MOVEM.l (a7)+,d1-d7/a0-a2
  134.         LEA.l  _S4,a0
  135.         JSR     PB_CopyString
  136.         MOVEM.l d1-d7/a0-a2,-(a7)
  137.         MOVEM.l d1-d7/a0-a2,-(a7)
  138.         MOVE.l  30(a4),a5
  139.         JSR    -80(a5)
  140.         MOVEM.l (a7)+,d1-d7/a0-a2
  141.         MOVE.l  26(a4),a5
  142.         JSR    -82(a5)
  143.         MOVEM.l (a7)+,d1-d7/a0-a2
  144.         LEA.l  _S5,a0
  145.         JSR     PB_CopyString
  146.         MOVEM.l d1-d7/a0-a2,-(a7)
  147.         MOVEM.l d1-d7/a0-a2,-(a7)
  148.         MOVE.l  30(a4),a5
  149.         JSR    -90(a5)
  150.         MOVEM.l (a7)+,d1-d7/a0-a2
  151.         MOVE.l  26(a4),a5
  152.         JSR    -82(a5)
  153.         MOVEM.l (a7)+,d1-d7/a0-a2
  154.         MOVE.l  (a7)+,a3
  155.         MOVE.l  a3,d1
  156.         MOVE.l  18(a4),a6
  157.         MOVE.l  22(a4),a5
  158.         JSR    -122(a5)
  159. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  160.         LEA.l  _S6,a0
  161.         MOVE.l  a3,-(a7)
  162.         JSR     PB_CopyString
  163.         MOVEM.l d1-d7/a0-a2,-(a7)
  164.         MOVEM.l d1-d7/a0-a2,-(a7)
  165.         MOVE.l  30(a4),a5
  166.         JSR    -66(a5)
  167.         MOVEM.l (a7)+,d1-d7/a0-a2
  168.         MOVE.l  26(a4),a5
  169.         JSR    -82(a5)
  170.         MOVEM.l (a7)+,d1-d7/a0-a2
  171.         LEA.l  _S7,a0
  172.         JSR     PB_CopyString
  173.         MOVEM.l d1-d7/a0-a2,-(a7)
  174.         MOVEM.l d1-d7/a0-a2,-(a7)
  175.         MOVE.l  30(a4),a5
  176.         JSR    -56(a5)
  177.         MOVEM.l (a7)+,d1-d7/a0-a2
  178.         MOVE.l  26(a4),a5
  179.         JSR    -82(a5)
  180.         MOVEM.l (a7)+,d1-d7/a0-a2
  181.         LEA.l  _S8,a0
  182.         JSR     PB_CopyString
  183.         MOVEM.l d1-d7/a0-a2,-(a7)
  184.         MOVEM.l d1-d7/a0-a2,-(a7)
  185.         MOVE.l  30(a4),a5
  186.         JSR    -100(a5)
  187.         MOVEM.l (a7)+,d1-d7/a0-a2
  188.         MOVE.l  26(a4),a5
  189.         JSR    -82(a5)
  190.         MOVEM.l (a7)+,d1-d7/a0-a2
  191.         MOVE.l  (a7)+,a3
  192.         MOVE.l  a3,d1
  193.         MOVE.l  18(a4),a6
  194.         MOVE.l  22(a4),a5
  195.         JSR    -122(a5)
  196. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  197.         MOVEM.l d1-d7/a0-a2,-(a7)
  198.         MOVE.w  #320,d1
  199.         EXT.l   d1
  200.         MOVE.w  #200,d2
  201.         EXT.l   d2
  202.         MOVEQ   #3,d3
  203.         MOVEQ   #0,d4
  204.         MOVEQ   #1,d0
  205.         MOVE.l  14(a4),a6
  206.         MOVE.l  30(a4),a5
  207.         JSR    -184(a5)
  208.         MOVEM.l (a7)+,d1-d7/a0-a2
  209.         TST.l   d0
  210.         BEQ    _EndIf2
  211. ;    Delay(50)
  212.         MOVEQ   #50,d1
  213.         MOVE.l  18(a4),a6
  214.         MOVE.l  22(a4),a5
  215.         JSR    -160(a5)
  216. ;    CloseScreen(1)
  217.         MOVEQ   #1,d0
  218.         MOVE.l  14(a4),a6
  219.         MOVE.l  30(a4),a5
  220.         JSR    -344(a5)
  221. ;  EndIf
  222. _EndIf2
  223. ;  UseScreen(0)
  224.         MOVEQ   #0,d0
  225.         MOVE.l  30(a4),a5
  226.         JSR    -14(a5)
  227. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  228.         MOVE.w  #255,d1
  229.         EXT.l   d1
  230.         MOVE.w  #255,d2
  231.         EXT.l   d2
  232.         MOVEQ   #0,d3
  233.         MOVE.w  #255,d0
  234.         EXT.l   d0
  235.         MOVE.l  10(a4),a6
  236.         MOVE.l  30(a4),a5
  237.         JSR    -228(a5)
  238.         MOVE.w  d0,4(a4)
  239. ;  PrintN("Pure White colour found at colour: "+Str(a))
  240.         LEA.l  _S9,a0
  241.         MOVE.l  a3,-(a7)
  242.         JSR     PB_CopyString
  243.         MOVEM.l d1-d7/a0-a2,-(a7)
  244.         MOVE.w  4(a4),d0
  245.         EXT.l   d0
  246.         MOVE.l  26(a4),a5
  247.         JSR    -82(a5)
  248.         MOVEM.l (a7)+,d1-d7/a0-a2
  249.         MOVE.l  (a7)+,a3
  250.         MOVE.l  a3,d1
  251.         MOVE.l  18(a4),a6
  252.         MOVE.l  22(a4),a5
  253.         JSR    -122(a5)
  254. ;  ReleasePen(a)                     ; Release it to the system
  255.         MOVE.w  4(a4),d0
  256.         EXT.l   d0
  257.         MOVE.l  10(a4),a6
  258.         MOVE.l  30(a4),a5
  259.         JSR    -110(a5)
  260. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  261.         MOVEM.l d1-d7/a0-a2,-(a7)
  262.         LEA.l  _S10,a0
  263.         MOVEQ   #1,d0
  264.         MOVE.l  14(a4),a6
  265.         MOVE.l  30(a4),a5
  266.         JSR    -340(a5)
  267.         MOVEM.l (a7)+,d1-d7/a0-a2
  268.         TST.l   d0
  269.         BEQ    _EndIf3
  270. ;    PrintN("Workbench screen found !")
  271.         LEA.l  _S11,a0
  272.         MOVE.l  a0,d1
  273.         MOVE.l  18(a4),a6
  274.         MOVE.l  22(a4),a5
  275.         JSR    -122(a5)
  276. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  277.         LEA.l  _S12,a0
  278.         MOVE.l  a0,d1
  279.         MOVE.l  18(a4),a6
  280.         MOVE.l  22(a4),a5
  281.         JSR    -138(a5)
  282.         MOVEM.l d1-d7/a0-a2,-(a7)
  283.         MOVE.l  30(a4),a5
  284.         JSR    -46(a5)
  285.         MOVEM.l (a7)+,d1-d7/a0-a2
  286.         MOVE.l  18(a4),a6
  287.         MOVE.l  22(a4),a5
  288.         JSR    -94(a5)
  289. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  290.         LEA.l  _S13,a0
  291.         MOVE.l  a0,d1
  292.         MOVE.l  18(a4),a6
  293.         MOVE.l  22(a4),a5
  294.         JSR    -138(a5)
  295.         MOVEM.l d1-d7/a0-a2,-(a7)
  296.         MOVE.l  30(a4),a5
  297.         JSR    -38(a5)
  298.         MOVEM.l (a7)+,d1-d7/a0-a2
  299.         MOVE.l  18(a4),a6
  300.         MOVE.l  22(a4),a5
  301.         JSR    -54(a5)
  302. ;    Delay(10)                       ; Flash the workbench screen !
  303.         MOVEQ   #10,d1
  304.         MOVE.l  18(a4),a6
  305.         MOVE.l  22(a4),a5
  306.         JSR    -160(a5)
  307. ;    FlashScreen()
  308.         MOVE.l  14(a4),a6
  309.         MOVE.l  30(a4),a5
  310.         JSR    -296(a5)
  311. ;  Else
  312.         JMP    _EndIf4
  313. _EndIf3
  314. ;    PrintN("Workbench screen isn't found ?!")
  315.         LEA.l  _S14,a0
  316.         MOVE.l  a0,d1
  317.         MOVE.l  18(a4),a6
  318.         MOVE.l  22(a4),a5
  319.         JSR    -122(a5)
  320. ;  Endif
  321. _EndIf4
  322. ; EndIf
  323. _EndIf1
  324. ; PrintN("Press the mouse to quit")
  325.         LEA.l  _S15,a0
  326.         MOVE.l  a0,d1
  327.         MOVE.l  18(a4),a6
  328.         MOVE.l  22(a4),a5
  329.         JSR    -122(a5)
  330. ; MouseWait()
  331.         MOVE.l  10(a4),a6
  332.         MOVE.l  22(a4),a5
  333.         JSR    -156(a5)
  334. ; End
  335.         JMP    _PB_EOP
  336. ; InitScreen(1) ; We will need 2 screens
  337.         MOVEQ   #1,d0
  338.         MOVE.l  6(a4),a6
  339.         MOVE.l  30(a4),a5
  340.         JSR    -252(a5)
  341. ; If FindScreen(0,"") ; Find de default public screen
  342.         MOVEM.l d1-d7/a0-a2,-(a7)
  343.         LEA.l  _S16,a0
  344.         MOVEQ   #0,d0
  345.         MOVE.l  14(a4),a6
  346.         MOVE.l  30(a4),a5
  347.         JSR    -340(a5)
  348.         MOVEM.l (a7)+,d1-d7/a0-a2
  349.         TST.l   d0
  350.         BEQ    _EndIf5
  351. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  352.         LEA.l  _S17,a0
  353.         MOVE.l  a0,d1
  354.         MOVE.l  18(a4),a6
  355.         MOVE.l  22(a4),a5
  356.         JSR    -138(a5)
  357.         MOVEM.l d1-d7/a0-a2,-(a7)
  358.         MOVE.l  30(a4),a5
  359.         JSR    -70(a5)
  360.         MOVEM.l (a7)+,d1-d7/a0-a2
  361.         MOVE.l  18(a4),a6
  362.         MOVE.l  22(a4),a5
  363.         JSR    -54(a5)
  364. ;  HideScreen() ; Hide it
  365.         MOVE.l  14(a4),a6
  366.         MOVE.l  30(a4),a5
  367.         JSR    -258(a5)
  368. ;  Delay(10)    ; Wait a little bit...
  369.         MOVEQ   #10,d1
  370.         MOVE.l  18(a4),a6
  371.         MOVE.l  22(a4),a5
  372.         JSR    -160(a5)
  373. ;  ShowScreen() ; and show it !
  374.         MOVE.l  14(a4),a6
  375.         MOVE.l  30(a4),a5
  376.         JSR    -20(a5)
  377. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  378.         LEA.l  _S18,a0
  379.         MOVE.l  a3,-(a7)
  380.         JSR     PB_CopyString
  381.         MOVEM.l d1-d7/a0-a2,-(a7)
  382.         MOVEM.l d1-d7/a0-a2,-(a7)
  383.         MOVE.l  30(a4),a5
  384.         JSR    -30(a5)
  385.         MOVEM.l (a7)+,d1-d7/a0-a2
  386.         MOVE.l  26(a4),a5
  387.         JSR    -82(a5)
  388.         MOVEM.l (a7)+,d1-d7/a0-a2
  389.         LEA.l  _S19,a0
  390.         JSR     PB_CopyString
  391.         MOVEM.l d1-d7/a0-a2,-(a7)
  392.         MOVEM.l d1-d7/a0-a2,-(a7)
  393.         MOVE.l  30(a4),a5
  394.         JSR    -80(a5)
  395.         MOVEM.l (a7)+,d1-d7/a0-a2
  396.         MOVE.l  26(a4),a5
  397.         JSR    -82(a5)
  398.         MOVEM.l (a7)+,d1-d7/a0-a2
  399.         LEA.l  _S20,a0
  400.         JSR     PB_CopyString
  401.         MOVEM.l d1-d7/a0-a2,-(a7)
  402.         MOVEM.l d1-d7/a0-a2,-(a7)
  403.         MOVE.l  30(a4),a5
  404.         JSR    -90(a5)
  405.         MOVEM.l (a7)+,d1-d7/a0-a2
  406.         MOVE.l  26(a4),a5
  407.         JSR    -82(a5)
  408.         MOVEM.l (a7)+,d1-d7/a0-a2
  409.         MOVE.l  (a7)+,a3
  410.         MOVE.l  a3,d1
  411.         MOVE.l  18(a4),a6
  412.         MOVE.l  22(a4),a5
  413.         JSR    -122(a5)
  414. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  415.         LEA.l  _S21,a0
  416.         MOVE.l  a3,-(a7)
  417.         JSR     PB_CopyString
  418.         MOVEM.l d1-d7/a0-a2,-(a7)
  419.         MOVEM.l d1-d7/a0-a2,-(a7)
  420.         MOVE.l  30(a4),a5
  421.         JSR    -66(a5)
  422.         MOVEM.l (a7)+,d1-d7/a0-a2
  423.         MOVE.l  26(a4),a5
  424.         JSR    -82(a5)
  425.         MOVEM.l (a7)+,d1-d7/a0-a2
  426.         LEA.l  _S22,a0
  427.         JSR     PB_CopyString
  428.         MOVEM.l d1-d7/a0-a2,-(a7)
  429.         MOVEM.l d1-d7/a0-a2,-(a7)
  430.         MOVE.l  30(a4),a5
  431.         JSR    -56(a5)
  432.         MOVEM.l (a7)+,d1-d7/a0-a2
  433.         MOVE.l  26(a4),a5
  434.         JSR    -82(a5)
  435.         MOVEM.l (a7)+,d1-d7/a0-a2
  436.         LEA.l  _S23,a0
  437.         JSR     PB_CopyString
  438.         MOVEM.l d1-d7/a0-a2,-(a7)
  439.         MOVEM.l d1-d7/a0-a2,-(a7)
  440.         MOVE.l  30(a4),a5
  441.         JSR    -100(a5)
  442.         MOVEM.l (a7)+,d1-d7/a0-a2
  443.         MOVE.l  26(a4),a5
  444.         JSR    -82(a5)
  445.         MOVEM.l (a7)+,d1-d7/a0-a2
  446.         MOVE.l  (a7)+,a3
  447.         MOVE.l  a3,d1
  448.         MOVE.l  18(a4),a6
  449.         MOVE.l  22(a4),a5
  450.         JSR    -122(a5)
  451. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  452.         MOVEM.l d1-d7/a0-a2,-(a7)
  453.         MOVE.w  #320,d1
  454.         EXT.l   d1
  455.         MOVE.w  #200,d2
  456.         EXT.l   d2
  457.         MOVEQ   #3,d3
  458.         MOVEQ   #0,d4
  459.         MOVEQ   #1,d0
  460.         MOVE.l  14(a4),a6
  461.         MOVE.l  30(a4),a5
  462.         JSR    -184(a5)
  463.         MOVEM.l (a7)+,d1-d7/a0-a2
  464.         TST.l   d0
  465.         BEQ    _EndIf6
  466. ;    Delay(50)
  467.         MOVEQ   #50,d1
  468.         MOVE.l  18(a4),a6
  469.         MOVE.l  22(a4),a5
  470.         JSR    -160(a5)
  471. ;    CloseScreen(1)
  472.         MOVEQ   #1,d0
  473.         MOVE.l  14(a4),a6
  474.         MOVE.l  30(a4),a5
  475.         JSR    -344(a5)
  476. ;  EndIf
  477. _EndIf6
  478. ;  UseScreen(0)
  479.         MOVEQ   #0,d0
  480.         MOVE.l  30(a4),a5
  481.         JSR    -14(a5)
  482. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  483.         MOVE.w  #255,d1
  484.         EXT.l   d1
  485.         MOVE.w  #255,d2
  486.         EXT.l   d2
  487.         MOVEQ   #0,d3
  488.         MOVE.w  #255,d0
  489.         EXT.l   d0
  490.         MOVE.l  10(a4),a6
  491.         MOVE.l  30(a4),a5
  492.         JSR    -228(a5)
  493.         MOVE.w  d0,4(a4)
  494. ;  PrintN("Pure White colour found at colour: "+Str(a))
  495.         LEA.l  _S24,a0
  496.         MOVE.l  a3,-(a7)
  497.         JSR     PB_CopyString
  498.         MOVEM.l d1-d7/a0-a2,-(a7)
  499.         MOVE.w  4(a4),d0
  500.         EXT.l   d0
  501.         MOVE.l  26(a4),a5
  502.         JSR    -82(a5)
  503.         MOVEM.l (a7)+,d1-d7/a0-a2
  504.         MOVE.l  (a7)+,a3
  505.         MOVE.l  a3,d1
  506.         MOVE.l  18(a4),a6
  507.         MOVE.l  22(a4),a5
  508.         JSR    -122(a5)
  509. ;  ReleasePen(a)                     ; Release it to the system
  510.         MOVE.w  4(a4),d0
  511.         EXT.l   d0
  512.         MOVE.l  10(a4),a6
  513.         MOVE.l  30(a4),a5
  514.         JSR    -110(a5)
  515. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  516.         MOVEM.l d1-d7/a0-a2,-(a7)
  517.         LEA.l  _S25,a0
  518.         MOVEQ   #1,d0
  519.         MOVE.l  14(a4),a6
  520.         MOVE.l  30(a4),a5
  521.         JSR    -340(a5)
  522.         MOVEM.l (a7)+,d1-d7/a0-a2
  523.         TST.l   d0
  524.         BEQ    _EndIf7
  525. ;    PrintN("Workbench screen found !")
  526.         LEA.l  _S26,a0
  527.         MOVE.l  a0,d1
  528.         MOVE.l  18(a4),a6
  529.         MOVE.l  22(a4),a5
  530.         JSR    -122(a5)
  531. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  532.         LEA.l  _S27,a0
  533.         MOVE.l  a0,d1
  534.         MOVE.l  18(a4),a6
  535.         MOVE.l  22(a4),a5
  536.         JSR    -138(a5)
  537.         MOVEM.l d1-d7/a0-a2,-(a7)
  538.         MOVE.l  30(a4),a5
  539.         JSR    -46(a5)
  540.         MOVEM.l (a7)+,d1-d7/a0-a2
  541.         MOVE.l  18(a4),a6
  542.         MOVE.l  22(a4),a5
  543.         JSR    -94(a5)
  544. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  545.         LEA.l  _S28,a0
  546.         MOVE.l  a0,d1
  547.         MOVE.l  18(a4),a6
  548.         MOVE.l  22(a4),a5
  549.         JSR    -138(a5)
  550.         MOVEM.l d1-d7/a0-a2,-(a7)
  551.         MOVE.l  30(a4),a5
  552.         JSR    -38(a5)
  553.         MOVEM.l (a7)+,d1-d7/a0-a2
  554.         MOVE.l  18(a4),a6
  555.         MOVE.l  22(a4),a5
  556.         JSR    -54(a5)
  557. ;    Delay(10)                       ; Flash the workbench screen !
  558.         MOVEQ   #10,d1
  559.         MOVE.l  18(a4),a6
  560.         MOVE.l  22(a4),a5
  561.         JSR    -160(a5)
  562. ;    FlashScreen()
  563.         MOVE.l  14(a4),a6
  564.         MOVE.l  30(a4),a5
  565.         JSR    -296(a5)
  566. ;  Else
  567.         JMP    _EndIf8
  568. _EndIf7
  569. ;    PrintN("Workbench screen isn't found ?!")
  570.         LEA.l  _S29,a0
  571.         MOVE.l  a0,d1
  572.         MOVE.l  18(a4),a6
  573.         MOVE.l  22(a4),a5
  574.         JSR    -122(a5)
  575. ;  Endif
  576. _EndIf8
  577. ; EndIf
  578. _EndIf5
  579. ; PrintN("Press the mouse to quit")
  580.         LEA.l  _S30,a0
  581.         MOVE.l  a0,d1
  582.         MOVE.l  18(a4),a6
  583.         MOVE.l  22(a4),a5
  584.         JSR    -122(a5)
  585. ; MouseWait()
  586.         MOVE.l  10(a4),a6
  587.         MOVE.l  22(a4),a5
  588.         JSR    -156(a5)
  589. ; End
  590.         JMP    _PB_EOP
  591. ; InitScreen(1) ; We will need 2 screens
  592.         MOVEQ   #1,d0
  593.         MOVE.l  6(a4),a6
  594.         MOVE.l  30(a4),a5
  595.         JSR    -252(a5)
  596. ; If FindScreen(0,"") ; Find de default public screen
  597.         MOVEM.l d1-d7/a0-a2,-(a7)
  598.         LEA.l  _S31,a0
  599.         MOVEQ   #0,d0
  600.         MOVE.l  14(a4),a6
  601.         MOVE.l  30(a4),a5
  602.         JSR    -340(a5)
  603.         MOVEM.l (a7)+,d1-d7/a0-a2
  604.         TST.l   d0
  605.         BEQ    _EndIf9
  606. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  607.         LEA.l  _S32,a0
  608.         MOVE.l  a0,d1
  609.         MOVE.l  18(a4),a6
  610.         MOVE.l  22(a4),a5
  611.         JSR    -138(a5)
  612.         MOVEM.l d1-d7/a0-a2,-(a7)
  613.         MOVE.l  30(a4),a5
  614.         JSR    -70(a5)
  615.         MOVEM.l (a7)+,d1-d7/a0-a2
  616.         MOVE.l  18(a4),a6
  617.         MOVE.l  22(a4),a5
  618.         JSR    -54(a5)
  619. ;  HideScreen() ; Hide it
  620.         MOVE.l  14(a4),a6
  621.         MOVE.l  30(a4),a5
  622.         JSR    -258(a5)
  623. ;  Delay(10)    ; Wait a little bit...
  624.         MOVEQ   #10,d1
  625.         MOVE.l  18(a4),a6
  626.         MOVE.l  22(a4),a5
  627.         JSR    -160(a5)
  628. ;  ShowScreen() ; and show it !
  629.         MOVE.l  14(a4),a6
  630.         MOVE.l  30(a4),a5
  631.         JSR    -20(a5)
  632. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  633.         LEA.l  _S33,a0
  634.         MOVE.l  a3,-(a7)
  635.         JSR     PB_CopyString
  636.         MOVEM.l d1-d7/a0-a2,-(a7)
  637.         MOVEM.l d1-d7/a0-a2,-(a7)
  638.         MOVE.l  30(a4),a5
  639.         JSR    -30(a5)
  640.         MOVEM.l (a7)+,d1-d7/a0-a2
  641.         MOVE.l  26(a4),a5
  642.         JSR    -82(a5)
  643.         MOVEM.l (a7)+,d1-d7/a0-a2
  644.         LEA.l  _S34,a0
  645.         JSR     PB_CopyString
  646.         MOVEM.l d1-d7/a0-a2,-(a7)
  647.         MOVEM.l d1-d7/a0-a2,-(a7)
  648.         MOVE.l  30(a4),a5
  649.         JSR    -80(a5)
  650.         MOVEM.l (a7)+,d1-d7/a0-a2
  651.         MOVE.l  26(a4),a5
  652.         JSR    -82(a5)
  653.         MOVEM.l (a7)+,d1-d7/a0-a2
  654.         LEA.l  _S35,a0
  655.         JSR     PB_CopyString
  656.         MOVEM.l d1-d7/a0-a2,-(a7)
  657.         MOVEM.l d1-d7/a0-a2,-(a7)
  658.         MOVE.l  30(a4),a5
  659.         JSR    -90(a5)
  660.         MOVEM.l (a7)+,d1-d7/a0-a2
  661.         MOVE.l  26(a4),a5
  662.         JSR    -82(a5)
  663.         MOVEM.l (a7)+,d1-d7/a0-a2
  664.         MOVE.l  (a7)+,a3
  665.         MOVE.l  a3,d1
  666.         MOVE.l  18(a4),a6
  667.         MOVE.l  22(a4),a5
  668.         JSR    -122(a5)
  669. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  670.         LEA.l  _S36,a0
  671.         MOVE.l  a3,-(a7)
  672.         JSR     PB_CopyString
  673.         MOVEM.l d1-d7/a0-a2,-(a7)
  674.         MOVEM.l d1-d7/a0-a2,-(a7)
  675.         MOVE.l  30(a4),a5
  676.         JSR    -66(a5)
  677.         MOVEM.l (a7)+,d1-d7/a0-a2
  678.         MOVE.l  26(a4),a5
  679.         JSR    -82(a5)
  680.         MOVEM.l (a7)+,d1-d7/a0-a2
  681.         LEA.l  _S37,a0
  682.         JSR     PB_CopyString
  683.         MOVEM.l d1-d7/a0-a2,-(a7)
  684.         MOVEM.l d1-d7/a0-a2,-(a7)
  685.         MOVE.l  30(a4),a5
  686.         JSR    -56(a5)
  687.         MOVEM.l (a7)+,d1-d7/a0-a2
  688.         MOVE.l  26(a4),a5
  689.         JSR    -82(a5)
  690.         MOVEM.l (a7)+,d1-d7/a0-a2
  691.         LEA.l  _S38,a0
  692.         JSR     PB_CopyString
  693.         MOVEM.l d1-d7/a0-a2,-(a7)
  694.         MOVEM.l d1-d7/a0-a2,-(a7)
  695.         MOVE.l  30(a4),a5
  696.         JSR    -100(a5)
  697.         MOVEM.l (a7)+,d1-d7/a0-a2
  698.         MOVE.l  26(a4),a5
  699.         JSR    -82(a5)
  700.         MOVEM.l (a7)+,d1-d7/a0-a2
  701.         MOVE.l  (a7)+,a3
  702.         MOVE.l  a3,d1
  703.         MOVE.l  18(a4),a6
  704.         MOVE.l  22(a4),a5
  705.         JSR    -122(a5)
  706. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  707.         MOVEM.l d1-d7/a0-a2,-(a7)
  708.         MOVE.w  #320,d1
  709.         EXT.l   d1
  710.         MOVE.w  #200,d2
  711.         EXT.l   d2
  712.         MOVEQ   #3,d3
  713.         MOVEQ   #0,d4
  714.         MOVEQ   #1,d0
  715.         MOVE.l  14(a4),a6
  716.         MOVE.l  30(a4),a5
  717.         JSR    -184(a5)
  718.         MOVEM.l (a7)+,d1-d7/a0-a2
  719.         TST.l   d0
  720.         BEQ    _EndIf10
  721. ;    Delay(50)
  722.         MOVEQ   #50,d1
  723.         MOVE.l  18(a4),a6
  724.         MOVE.l  22(a4),a5
  725.         JSR    -160(a5)
  726. ;    CloseScreen(1)
  727.         MOVEQ   #1,d0
  728.         MOVE.l  14(a4),a6
  729.         MOVE.l  30(a4),a5
  730.         JSR    -344(a5)
  731. ;  EndIf
  732. _EndIf10
  733. ;  UseScreen(0)
  734.         MOVEQ   #0,d0
  735.         MOVE.l  30(a4),a5
  736.         JSR    -14(a5)
  737. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  738.         MOVE.w  #255,d1
  739.         EXT.l   d1
  740.         MOVE.w  #255,d2
  741.         EXT.l   d2
  742.         MOVEQ   #0,d3
  743.         MOVE.w  #255,d0
  744.         EXT.l   d0
  745.         MOVE.l  10(a4),a6
  746.         MOVE.l  30(a4),a5
  747.         JSR    -228(a5)
  748.         MOVE.w  d0,4(a4)
  749. ;  PrintN("Pure White colour found at colour: "+Str(a))
  750.         LEA.l  _S39,a0
  751.         MOVE.l  a3,-(a7)
  752.         JSR     PB_CopyString
  753.         MOVEM.l d1-d7/a0-a2,-(a7)
  754.         MOVE.w  4(a4),d0
  755.         EXT.l   d0
  756.         MOVE.l  26(a4),a5
  757.         JSR    -82(a5)
  758.         MOVEM.l (a7)+,d1-d7/a0-a2
  759.         MOVE.l  (a7)+,a3
  760.         MOVE.l  a3,d1
  761.         MOVE.l  18(a4),a6
  762.         MOVE.l  22(a4),a5
  763.         JSR    -122(a5)
  764. ;  ReleasePen(a)                     ; Release it to the system
  765.         MOVE.w  4(a4),d0
  766.         EXT.l   d0
  767.         MOVE.l  10(a4),a6
  768.         MOVE.l  30(a4),a5
  769.         JSR    -110(a5)
  770. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  771.         MOVEM.l d1-d7/a0-a2,-(a7)
  772.         LEA.l  _S40,a0
  773.         MOVEQ   #1,d0
  774.         MOVE.l  14(a4),a6
  775.         MOVE.l  30(a4),a5
  776.         JSR    -340(a5)
  777.         MOVEM.l (a7)+,d1-d7/a0-a2
  778.         TST.l   d0
  779.         BEQ    _EndIf11
  780. ;    PrintN("Workbench screen found !")
  781.         LEA.l  _S41,a0
  782.         MOVE.l  a0,d1
  783.         MOVE.l  18(a4),a6
  784.         MOVE.l  22(a4),a5
  785.         JSR    -122(a5)
  786. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  787.         LEA.l  _S42,a0
  788.         MOVE.l  a0,d1
  789.         MOVE.l  18(a4),a6
  790.         MOVE.l  22(a4),a5
  791.         JSR    -138(a5)
  792.         MOVEM.l d1-d7/a0-a2,-(a7)
  793.         MOVE.l  30(a4),a5
  794.         JSR    -46(a5)
  795.         MOVEM.l (a7)+,d1-d7/a0-a2
  796.         MOVE.l  18(a4),a6
  797.         MOVE.l  22(a4),a5
  798.         JSR    -94(a5)
  799. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  800.         LEA.l  _S43,a0
  801.         MOVE.l  a0,d1
  802.         MOVE.l  18(a4),a6
  803.         MOVE.l  22(a4),a5
  804.         JSR    -138(a5)
  805.         MOVEM.l d1-d7/a0-a2,-(a7)
  806.         MOVE.l  30(a4),a5
  807.         JSR    -38(a5)
  808.         MOVEM.l (a7)+,d1-d7/a0-a2
  809.         MOVE.l  18(a4),a6
  810.         MOVE.l  22(a4),a5
  811.         JSR    -54(a5)
  812. ;    Delay(10)                       ; Flash the workbench screen !
  813.         MOVEQ   #10,d1
  814.         MOVE.l  18(a4),a6
  815.         MOVE.l  22(a4),a5
  816.         JSR    -160(a5)
  817. ;    FlashScreen()
  818.         MOVE.l  14(a4),a6
  819.         MOVE.l  30(a4),a5
  820.         JSR    -296(a5)
  821. ;  Else
  822.         JMP    _EndIf12
  823. _EndIf11
  824. ;    PrintN("Workbench screen isn't found ?!")
  825.         LEA.l  _S44,a0
  826.         MOVE.l  a0,d1
  827.         MOVE.l  18(a4),a6
  828.         MOVE.l  22(a4),a5
  829.         JSR    -122(a5)
  830. ;  Endif
  831. _EndIf12
  832. ; EndIf
  833. _EndIf9
  834. ; PrintN("Press the mouse to quit")
  835.         LEA.l  _S45,a0
  836.         MOVE.l  a0,d1
  837.         MOVE.l  18(a4),a6
  838.         MOVE.l  22(a4),a5
  839.         JSR    -122(a5)
  840. ; MouseWait()
  841.         MOVE.l  10(a4),a6
  842.         MOVE.l  22(a4),a5
  843.         JSR    -156(a5)
  844. ; End
  845.         JMP    _PB_EOP
  846. ; InitScreen(1) ; We will need 2 screens
  847.         MOVEQ   #1,d0
  848.         MOVE.l  6(a4),a6
  849.         MOVE.l  30(a4),a5
  850.         JSR    -252(a5)
  851. ; If FindScreen(0,"") ; Find de default public screen
  852.         MOVEM.l d1-d7/a0-a2,-(a7)
  853.         LEA.l  _S46,a0
  854.         MOVEQ   #0,d0
  855.         MOVE.l  14(a4),a6
  856.         MOVE.l  30(a4),a5
  857.         JSR    -340(a5)
  858.         MOVEM.l (a7)+,d1-d7/a0-a2
  859.         TST.l   d0
  860.         BEQ    _EndIf13
  861. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  862.         LEA.l  _S47,a0
  863.         MOVE.l  a0,d1
  864.         MOVE.l  18(a4),a6
  865.         MOVE.l  22(a4),a5
  866.         JSR    -138(a5)
  867.         MOVEM.l d1-d7/a0-a2,-(a7)
  868.         MOVE.l  30(a4),a5
  869.         JSR    -70(a5)
  870.         MOVEM.l (a7)+,d1-d7/a0-a2
  871.         MOVE.l  18(a4),a6
  872.         MOVE.l  22(a4),a5
  873.         JSR    -54(a5)
  874. ;  HideScreen() ; Hide it
  875.         MOVE.l  14(a4),a6
  876.         MOVE.l  30(a4),a5
  877.         JSR    -258(a5)
  878. ;  Delay(10)    ; Wait a little bit...
  879.         MOVEQ   #10,d1
  880.         MOVE.l  18(a4),a6
  881.         MOVE.l  22(a4),a5
  882.         JSR    -160(a5)
  883. ;  ShowScreen() ; and show it !
  884.         MOVE.l  14(a4),a6
  885.         MOVE.l  30(a4),a5
  886.         JSR    -20(a5)
  887. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  888.         LEA.l  _S48,a0
  889.         MOVE.l  a3,-(a7)
  890.         JSR     PB_CopyString
  891.         MOVEM.l d1-d7/a0-a2,-(a7)
  892.         MOVEM.l d1-d7/a0-a2,-(a7)
  893.         MOVE.l  30(a4),a5
  894.         JSR    -30(a5)
  895.         MOVEM.l (a7)+,d1-d7/a0-a2
  896.         MOVE.l  26(a4),a5
  897.         JSR    -82(a5)
  898.         MOVEM.l (a7)+,d1-d7/a0-a2
  899.         LEA.l  _S49,a0
  900.         JSR     PB_CopyString
  901.         MOVEM.l d1-d7/a0-a2,-(a7)
  902.         MOVEM.l d1-d7/a0-a2,-(a7)
  903.         MOVE.l  30(a4),a5
  904.         JSR    -80(a5)
  905.         MOVEM.l (a7)+,d1-d7/a0-a2
  906.         MOVE.l  26(a4),a5
  907.         JSR    -82(a5)
  908.         MOVEM.l (a7)+,d1-d7/a0-a2
  909.         LEA.l  _S50,a0
  910.         JSR     PB_CopyString
  911.         MOVEM.l d1-d7/a0-a2,-(a7)
  912.         MOVEM.l d1-d7/a0-a2,-(a7)
  913.         MOVE.l  30(a4),a5
  914.         JSR    -90(a5)
  915.         MOVEM.l (a7)+,d1-d7/a0-a2
  916.         MOVE.l  26(a4),a5
  917.         JSR    -82(a5)
  918.         MOVEM.l (a7)+,d1-d7/a0-a2
  919.         MOVE.l  (a7)+,a3
  920.         MOVE.l  a3,d1
  921.         MOVE.l  18(a4),a6
  922.         MOVE.l  22(a4),a5
  923.         JSR    -122(a5)
  924. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  925.         LEA.l  _S51,a0
  926.         MOVE.l  a3,-(a7)
  927.         JSR     PB_CopyString
  928.         MOVEM.l d1-d7/a0-a2,-(a7)
  929.         MOVEM.l d1-d7/a0-a2,-(a7)
  930.         MOVE.l  30(a4),a5
  931.         JSR    -66(a5)
  932.         MOVEM.l (a7)+,d1-d7/a0-a2
  933.         MOVE.l  26(a4),a5
  934.         JSR    -82(a5)
  935.         MOVEM.l (a7)+,d1-d7/a0-a2
  936.         LEA.l  _S52,a0
  937.         JSR     PB_CopyString
  938.         MOVEM.l d1-d7/a0-a2,-(a7)
  939.         MOVEM.l d1-d7/a0-a2,-(a7)
  940.         MOVE.l  30(a4),a5
  941.         JSR    -56(a5)
  942.         MOVEM.l (a7)+,d1-d7/a0-a2
  943.         MOVE.l  26(a4),a5
  944.         JSR    -82(a5)
  945.         MOVEM.l (a7)+,d1-d7/a0-a2
  946.         LEA.l  _S53,a0
  947.         JSR     PB_CopyString
  948.         MOVEM.l d1-d7/a0-a2,-(a7)
  949.         MOVEM.l d1-d7/a0-a2,-(a7)
  950.         MOVE.l  30(a4),a5
  951.         JSR    -100(a5)
  952.         MOVEM.l (a7)+,d1-d7/a0-a2
  953.         MOVE.l  26(a4),a5
  954.         JSR    -82(a5)
  955.         MOVEM.l (a7)+,d1-d7/a0-a2
  956.         MOVE.l  (a7)+,a3
  957.         MOVE.l  a3,d1
  958.         MOVE.l  18(a4),a6
  959.         MOVE.l  22(a4),a5
  960.         JSR    -122(a5)
  961. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  962.         MOVEM.l d1-d7/a0-a2,-(a7)
  963.         MOVE.w  #320,d1
  964.         EXT.l   d1
  965.         MOVE.w  #200,d2
  966.         EXT.l   d2
  967.         MOVEQ   #3,d3
  968.         MOVEQ   #0,d4
  969.         MOVEQ   #1,d0
  970.         MOVE.l  14(a4),a6
  971.         MOVE.l  30(a4),a5
  972.         JSR    -184(a5)
  973.         MOVEM.l (a7)+,d1-d7/a0-a2
  974.         TST.l   d0
  975.         BEQ    _EndIf14
  976. ;    Delay(50)
  977.         MOVEQ   #50,d1
  978.         MOVE.l  18(a4),a6
  979.         MOVE.l  22(a4),a5
  980.         JSR    -160(a5)
  981. ;    CloseScreen(1)
  982.         MOVEQ   #1,d0
  983.         MOVE.l  14(a4),a6
  984.         MOVE.l  30(a4),a5
  985.         JSR    -344(a5)
  986. ;  EndIf
  987. _EndIf14
  988. ;  UseScreen(0)
  989.         MOVEQ   #0,d0
  990.         MOVE.l  30(a4),a5
  991.         JSR    -14(a5)
  992. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  993.         MOVE.w  #255,d1
  994.         EXT.l   d1
  995.         MOVE.w  #255,d2
  996.         EXT.l   d2
  997.         MOVEQ   #0,d3
  998.         MOVE.w  #255,d0
  999.         EXT.l   d0
  1000.         MOVE.l  10(a4),a6
  1001.         MOVE.l  30(a4),a5
  1002.         JSR    -228(a5)
  1003.         MOVE.w  d0,4(a4)
  1004. ;  PrintN("Pure White colour found at colour: "+Str(a))
  1005.         LEA.l  _S54,a0
  1006.         MOVE.l  a3,-(a7)
  1007.         JSR     PB_CopyString
  1008.         MOVEM.l d1-d7/a0-a2,-(a7)
  1009.         MOVE.w  4(a4),d0
  1010.         EXT.l   d0
  1011.         MOVE.l  26(a4),a5
  1012.         JSR    -82(a5)
  1013.         MOVEM.l (a7)+,d1-d7/a0-a2
  1014.         MOVE.l  (a7)+,a3
  1015.         MOVE.l  a3,d1
  1016.         MOVE.l  18(a4),a6
  1017.         MOVE.l  22(a4),a5
  1018.         JSR    -122(a5)
  1019. ;  ReleasePen(a)                     ; Release it to the system
  1020.         MOVE.w  4(a4),d0
  1021.         EXT.l   d0
  1022.         MOVE.l  10(a4),a6
  1023.         MOVE.l  30(a4),a5
  1024.         JSR    -110(a5)
  1025. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  1026.         MOVEM.l d1-d7/a0-a2,-(a7)
  1027.         LEA.l  _S55,a0
  1028.         MOVEQ   #1,d0
  1029.         MOVE.l  14(a4),a6
  1030.         MOVE.l  30(a4),a5
  1031.         JSR    -340(a5)
  1032.         MOVEM.l (a7)+,d1-d7/a0-a2
  1033.         TST.l   d0
  1034.         BEQ    _EndIf15
  1035. ;    PrintN("Workbench screen found !")
  1036.         LEA.l  _S56,a0
  1037.         MOVE.l  a0,d1
  1038.         MOVE.l  18(a4),a6
  1039.         MOVE.l  22(a4),a5
  1040.         JSR    -122(a5)
  1041. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  1042.         LEA.l  _S57,a0
  1043.         MOVE.l  a0,d1
  1044.         MOVE.l  18(a4),a6
  1045.         MOVE.l  22(a4),a5
  1046.         JSR    -138(a5)
  1047.         MOVEM.l d1-d7/a0-a2,-(a7)
  1048.         MOVE.l  30(a4),a5
  1049.         JSR    -46(a5)
  1050.         MOVEM.l (a7)+,d1-d7/a0-a2
  1051.         MOVE.l  18(a4),a6
  1052.         MOVE.l  22(a4),a5
  1053.         JSR    -94(a5)
  1054. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  1055.         LEA.l  _S58,a0
  1056.         MOVE.l  a0,d1
  1057.         MOVE.l  18(a4),a6
  1058.         MOVE.l  22(a4),a5
  1059.         JSR    -138(a5)
  1060.         MOVEM.l d1-d7/a0-a2,-(a7)
  1061.         MOVE.l  30(a4),a5
  1062.         JSR    -38(a5)
  1063.         MOVEM.l (a7)+,d1-d7/a0-a2
  1064.         MOVE.l  18(a4),a6
  1065.         MOVE.l  22(a4),a5
  1066.         JSR    -54(a5)
  1067. ;    Delay(10)                       ; Flash the workbench screen !
  1068.         MOVEQ   #10,d1
  1069.         MOVE.l  18(a4),a6
  1070.         MOVE.l  22(a4),a5
  1071.         JSR    -160(a5)
  1072. ;    FlashScreen()
  1073.         MOVE.l  14(a4),a6
  1074.         MOVE.l  30(a4),a5
  1075.         JSR    -296(a5)
  1076. ;  Else
  1077.         JMP    _EndIf16
  1078. _EndIf15
  1079. ;    PrintN("Workbench screen isn't found ?!")
  1080.         LEA.l  _S59,a0
  1081.         MOVE.l  a0,d1
  1082.         MOVE.l  18(a4),a6
  1083.         MOVE.l  22(a4),a5
  1084.         JSR    -122(a5)
  1085. ;  Endif
  1086. _EndIf16
  1087. ; EndIf
  1088. _EndIf13
  1089. ; PrintN("Press the mouse to quit")
  1090.         LEA.l  _S60,a0
  1091.         MOVE.l  a0,d1
  1092.         MOVE.l  18(a4),a6
  1093.         MOVE.l  22(a4),a5
  1094.         JSR    -122(a5)
  1095. ; MouseWait()
  1096.         MOVE.l  10(a4),a6
  1097.         MOVE.l  22(a4),a5
  1098.         JSR    -156(a5)
  1099. ; End
  1100.         JMP    _PB_EOP
  1101. ; InitScreen(1) ; We will need 2 screens
  1102.         MOVEQ   #1,d0
  1103.         MOVE.l  6(a4),a6
  1104.         MOVE.l  30(a4),a5
  1105.         JSR    -252(a5)
  1106. ; If FindScreen(0,"") ; Find de default public screen
  1107.         MOVEM.l d1-d7/a0-a2,-(a7)
  1108.         LEA.l  _S61,a0
  1109.         MOVEQ   #0,d0
  1110.         MOVE.l  14(a4),a6
  1111.         MOVE.l  30(a4),a5
  1112.         JSR    -340(a5)
  1113.         MOVEM.l (a7)+,d1-d7/a0-a2
  1114.         TST.l   d0
  1115.         BEQ    _EndIf17
  1116. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  1117.         LEA.l  _S62,a0
  1118.         MOVE.l  a0,d1
  1119.         MOVE.l  18(a4),a6
  1120.         MOVE.l  22(a4),a5
  1121.         JSR    -138(a5)
  1122.         MOVEM.l d1-d7/a0-a2,-(a7)
  1123.         MOVE.l  30(a4),a5
  1124.         JSR    -70(a5)
  1125.         MOVEM.l (a7)+,d1-d7/a0-a2
  1126.         MOVE.l  18(a4),a6
  1127.         MOVE.l  22(a4),a5
  1128.         JSR    -54(a5)
  1129. ;  HideScreen() ; Hide it
  1130.         MOVE.l  14(a4),a6
  1131.         MOVE.l  30(a4),a5
  1132.         JSR    -258(a5)
  1133. ;  Delay(10)    ; Wait a little bit...
  1134.         MOVEQ   #10,d1
  1135.         MOVE.l  18(a4),a6
  1136.         MOVE.l  22(a4),a5
  1137.         JSR    -160(a5)
  1138. ;  ShowScreen() ; and show it !
  1139.         MOVE.l  14(a4),a6
  1140.         MOVE.l  30(a4),a5
  1141.         JSR    -20(a5)
  1142. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  1143.         LEA.l  _S63,a0
  1144.         MOVE.l  a3,-(a7)
  1145.         JSR     PB_CopyString
  1146.         MOVEM.l d1-d7/a0-a2,-(a7)
  1147.         MOVEM.l d1-d7/a0-a2,-(a7)
  1148.         MOVE.l  30(a4),a5
  1149.         JSR    -30(a5)
  1150.         MOVEM.l (a7)+,d1-d7/a0-a2
  1151.         MOVE.l  26(a4),a5
  1152.         JSR    -82(a5)
  1153.         MOVEM.l (a7)+,d1-d7/a0-a2
  1154.         LEA.l  _S64,a0
  1155.         JSR     PB_CopyString
  1156.         MOVEM.l d1-d7/a0-a2,-(a7)
  1157.         MOVEM.l d1-d7/a0-a2,-(a7)
  1158.         MOVE.l  30(a4),a5
  1159.         JSR    -80(a5)
  1160.         MOVEM.l (a7)+,d1-d7/a0-a2
  1161.         MOVE.l  26(a4),a5
  1162.         JSR    -82(a5)
  1163.         MOVEM.l (a7)+,d1-d7/a0-a2
  1164.         LEA.l  _S65,a0
  1165.         JSR     PB_CopyString
  1166.         MOVEM.l d1-d7/a0-a2,-(a7)
  1167.         MOVEM.l d1-d7/a0-a2,-(a7)
  1168.         MOVE.l  30(a4),a5
  1169.         JSR    -90(a5)
  1170.         MOVEM.l (a7)+,d1-d7/a0-a2
  1171.         MOVE.l  26(a4),a5
  1172.         JSR    -82(a5)
  1173.         MOVEM.l (a7)+,d1-d7/a0-a2
  1174.         MOVE.l  (a7)+,a3
  1175.         MOVE.l  a3,d1
  1176.         MOVE.l  18(a4),a6
  1177.         MOVE.l  22(a4),a5
  1178.         JSR    -122(a5)
  1179. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  1180.         LEA.l  _S66,a0
  1181.         MOVE.l  a3,-(a7)
  1182.         JSR     PB_CopyString
  1183.         MOVEM.l d1-d7/a0-a2,-(a7)
  1184.         MOVEM.l d1-d7/a0-a2,-(a7)
  1185.         MOVE.l  30(a4),a5
  1186.         JSR    -66(a5)
  1187.         MOVEM.l (a7)+,d1-d7/a0-a2
  1188.         MOVE.l  26(a4),a5
  1189.         JSR    -82(a5)
  1190.         MOVEM.l (a7)+,d1-d7/a0-a2
  1191.         LEA.l  _S67,a0
  1192.         JSR     PB_CopyString
  1193.         MOVEM.l d1-d7/a0-a2,-(a7)
  1194.         MOVEM.l d1-d7/a0-a2,-(a7)
  1195.         MOVE.l  30(a4),a5
  1196.         JSR    -56(a5)
  1197.         MOVEM.l (a7)+,d1-d7/a0-a2
  1198.         MOVE.l  26(a4),a5
  1199.         JSR    -82(a5)
  1200.         MOVEM.l (a7)+,d1-d7/a0-a2
  1201.         LEA.l  _S68,a0
  1202.         JSR     PB_CopyString
  1203.         MOVEM.l d1-d7/a0-a2,-(a7)
  1204.         MOVEM.l d1-d7/a0-a2,-(a7)
  1205.         MOVE.l  30(a4),a5
  1206.         JSR    -100(a5)
  1207.         MOVEM.l (a7)+,d1-d7/a0-a2
  1208.         MOVE.l  26(a4),a5
  1209.         JSR    -82(a5)
  1210.         MOVEM.l (a7)+,d1-d7/a0-a2
  1211.         MOVE.l  (a7)+,a3
  1212.         MOVE.l  a3,d1
  1213.         MOVE.l  18(a4),a6
  1214.         MOVE.l  22(a4),a5
  1215.         JSR    -122(a5)
  1216. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  1217.         MOVEM.l d1-d7/a0-a2,-(a7)
  1218.         MOVE.w  #320,d1
  1219.         EXT.l   d1
  1220.         MOVE.w  #200,d2
  1221.         EXT.l   d2
  1222.         MOVEQ   #3,d3
  1223.         MOVEQ   #0,d4
  1224.         MOVEQ   #1,d0
  1225.         MOVE.l  14(a4),a6
  1226.         MOVE.l  30(a4),a5
  1227.         JSR    -184(a5)
  1228.         MOVEM.l (a7)+,d1-d7/a0-a2
  1229.         TST.l   d0
  1230.         BEQ    _EndIf18
  1231. ;    Delay(50)
  1232.         MOVEQ   #50,d1
  1233.         MOVE.l  18(a4),a6
  1234.         MOVE.l  22(a4),a5
  1235.         JSR    -160(a5)
  1236. ;    CloseScreen(1)
  1237.         MOVEQ   #1,d0
  1238.         MOVE.l  14(a4),a6
  1239.         MOVE.l  30(a4),a5
  1240.         JSR    -344(a5)
  1241. ;  EndIf
  1242. _EndIf18
  1243. ;  UseScreen(0)
  1244.         MOVEQ   #0,d0
  1245.         MOVE.l  30(a4),a5
  1246.         JSR    -14(a5)
  1247. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  1248.         MOVE.w  #255,d1
  1249.         EXT.l   d1
  1250.         MOVE.w  #255,d2
  1251.         EXT.l   d2
  1252.         MOVEQ   #0,d3
  1253.         MOVE.w  #255,d0
  1254.         EXT.l   d0
  1255.         MOVE.l  10(a4),a6
  1256.         MOVE.l  30(a4),a5
  1257.         JSR    -228(a5)
  1258.         MOVE.w  d0,4(a4)
  1259. ;  PrintN("Pure White colour found at colour: "+Str(a))
  1260.         LEA.l  _S69,a0
  1261.         MOVE.l  a3,-(a7)
  1262.         JSR     PB_CopyString
  1263.         MOVEM.l d1-d7/a0-a2,-(a7)
  1264.         MOVE.w  4(a4),d0
  1265.         EXT.l   d0
  1266.         MOVE.l  26(a4),a5
  1267.         JSR    -82(a5)
  1268.         MOVEM.l (a7)+,d1-d7/a0-a2
  1269.         MOVE.l  (a7)+,a3
  1270.         MOVE.l  a3,d1
  1271.         MOVE.l  18(a4),a6
  1272.         MOVE.l  22(a4),a5
  1273.         JSR    -122(a5)
  1274. ;  ReleasePen(a)                     ; Release it to the system
  1275.         MOVE.w  4(a4),d0
  1276.         EXT.l   d0
  1277.         MOVE.l  10(a4),a6
  1278.         MOVE.l  30(a4),a5
  1279.         JSR    -110(a5)
  1280. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  1281.         MOVEM.l d1-d7/a0-a2,-(a7)
  1282.         LEA.l  _S70,a0
  1283.         MOVEQ   #1,d0
  1284.         MOVE.l  14(a4),a6
  1285.         MOVE.l  30(a4),a5
  1286.         JSR    -340(a5)
  1287.         MOVEM.l (a7)+,d1-d7/a0-a2
  1288.         TST.l   d0
  1289.         BEQ    _EndIf19
  1290. ;    PrintN("Workbench screen found !")
  1291.         LEA.l  _S71,a0
  1292.         MOVE.l  a0,d1
  1293.         MOVE.l  18(a4),a6
  1294.         MOVE.l  22(a4),a5
  1295.         JSR    -122(a5)
  1296. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  1297.         LEA.l  _S72,a0
  1298.         MOVE.l  a0,d1
  1299.         MOVE.l  18(a4),a6
  1300.         MOVE.l  22(a4),a5
  1301.         JSR    -138(a5)
  1302.         MOVEM.l d1-d7/a0-a2,-(a7)
  1303.         MOVE.l  30(a4),a5
  1304.         JSR    -46(a5)
  1305.         MOVEM.l (a7)+,d1-d7/a0-a2
  1306.         MOVE.l  18(a4),a6
  1307.         MOVE.l  22(a4),a5
  1308.         JSR    -94(a5)
  1309. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  1310.         LEA.l  _S73,a0
  1311.         MOVE.l  a0,d1
  1312.         MOVE.l  18(a4),a6
  1313.         MOVE.l  22(a4),a5
  1314.         JSR    -138(a5)
  1315.         MOVEM.l d1-d7/a0-a2,-(a7)
  1316.         MOVE.l  30(a4),a5
  1317.         JSR    -38(a5)
  1318.         MOVEM.l (a7)+,d1-d7/a0-a2
  1319.         MOVE.l  18(a4),a6
  1320.         MOVE.l  22(a4),a5
  1321.         JSR    -54(a5)
  1322. ;    Delay(10)                       ; Flash the workbench screen !
  1323.         MOVEQ   #10,d1
  1324.         MOVE.l  18(a4),a6
  1325.         MOVE.l  22(a4),a5
  1326.         JSR    -160(a5)
  1327. ;    FlashScreen()
  1328.         MOVE.l  14(a4),a6
  1329.         MOVE.l  30(a4),a5
  1330.         JSR    -296(a5)
  1331. ;  Else
  1332.         JMP    _EndIf20
  1333. _EndIf19
  1334. ;    PrintN("Workbench screen isn't found ?!")
  1335.         LEA.l  _S74,a0
  1336.         MOVE.l  a0,d1
  1337.         MOVE.l  18(a4),a6
  1338.         MOVE.l  22(a4),a5
  1339.         JSR    -122(a5)
  1340. ;  Endif
  1341. _EndIf20
  1342. ; EndIf
  1343. _EndIf17
  1344. ; PrintN("Press the mouse to quit")
  1345.         LEA.l  _S75,a0
  1346.         MOVE.l  a0,d1
  1347.         MOVE.l  18(a4),a6
  1348.         MOVE.l  22(a4),a5
  1349.         JSR    -122(a5)
  1350. ; MouseWait()
  1351.         MOVE.l  10(a4),a6
  1352.         MOVE.l  22(a4),a5
  1353.         JSR    -156(a5)
  1354. ; End
  1355.         JMP    _PB_EOP
  1356. ; InitScreen(1) ; We will need 2 screens
  1357.         MOVEQ   #1,d0
  1358.         MOVE.l  6(a4),a6
  1359.         MOVE.l  30(a4),a5
  1360.         JSR    -252(a5)
  1361. ; If FindScreen(0,"") ; Find de default public screen
  1362.         MOVEM.l d1-d7/a0-a2,-(a7)
  1363.         LEA.l  _S76,a0
  1364.         MOVEQ   #0,d0
  1365.         MOVE.l  14(a4),a6
  1366.         MOVE.l  30(a4),a5
  1367.         JSR    -340(a5)
  1368.         MOVEM.l (a7)+,d1-d7/a0-a2
  1369.         TST.l   d0
  1370.         BEQ    _EndIf21
  1371. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  1372.         LEA.l  _S77,a0
  1373.         MOVE.l  a0,d1
  1374.         MOVE.l  18(a4),a6
  1375.         MOVE.l  22(a4),a5
  1376.         JSR    -138(a5)
  1377.         MOVEM.l d1-d7/a0-a2,-(a7)
  1378.         MOVE.l  30(a4),a5
  1379.         JSR    -70(a5)
  1380.         MOVEM.l (a7)+,d1-d7/a0-a2
  1381.         MOVE.l  18(a4),a6
  1382.         MOVE.l  22(a4),a5
  1383.         JSR    -54(a5)
  1384. ;  HideScreen() ; Hide it
  1385.         MOVE.l  14(a4),a6
  1386.         MOVE.l  30(a4),a5
  1387.         JSR    -258(a5)
  1388. ;  Delay(10)    ; Wait a little bit...
  1389.         MOVEQ   #10,d1
  1390.         MOVE.l  18(a4),a6
  1391.         MOVE.l  22(a4),a5
  1392.         JSR    -160(a5)
  1393. ;  ShowScreen() ; and show it !
  1394.         MOVE.l  14(a4),a6
  1395.         MOVE.l  30(a4),a5
  1396.         JSR    -20(a5)
  1397. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  1398.         LEA.l  _S78,a0
  1399.         MOVE.l  a3,-(a7)
  1400.         JSR     PB_CopyString
  1401.         MOVEM.l d1-d7/a0-a2,-(a7)
  1402.         MOVEM.l d1-d7/a0-a2,-(a7)
  1403.         MOVE.l  30(a4),a5
  1404.         JSR    -30(a5)
  1405.         MOVEM.l (a7)+,d1-d7/a0-a2
  1406.         MOVE.l  26(a4),a5
  1407.         JSR    -82(a5)
  1408.         MOVEM.l (a7)+,d1-d7/a0-a2
  1409.         LEA.l  _S79,a0
  1410.         JSR     PB_CopyString
  1411.         MOVEM.l d1-d7/a0-a2,-(a7)
  1412.         MOVEM.l d1-d7/a0-a2,-(a7)
  1413.         MOVE.l  30(a4),a5
  1414.         JSR    -80(a5)
  1415.         MOVEM.l (a7)+,d1-d7/a0-a2
  1416.         MOVE.l  26(a4),a5
  1417.         JSR    -82(a5)
  1418.         MOVEM.l (a7)+,d1-d7/a0-a2
  1419.         LEA.l  _S80,a0
  1420.         JSR     PB_CopyString
  1421.         MOVEM.l d1-d7/a0-a2,-(a7)
  1422.         MOVEM.l d1-d7/a0-a2,-(a7)
  1423.         MOVE.l  30(a4),a5
  1424.         JSR    -90(a5)
  1425.         MOVEM.l (a7)+,d1-d7/a0-a2
  1426.         MOVE.l  26(a4),a5
  1427.         JSR    -82(a5)
  1428.         MOVEM.l (a7)+,d1-d7/a0-a2
  1429.         MOVE.l  (a7)+,a3
  1430.         MOVE.l  a3,d1
  1431.         MOVE.l  18(a4),a6
  1432.         MOVE.l  22(a4),a5
  1433.         JSR    -122(a5)
  1434. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  1435.         LEA.l  _S81,a0
  1436.         MOVE.l  a3,-(a7)
  1437.         JSR     PB_CopyString
  1438.         MOVEM.l d1-d7/a0-a2,-(a7)
  1439.         MOVEM.l d1-d7/a0-a2,-(a7)
  1440.         MOVE.l  30(a4),a5
  1441.         JSR    -66(a5)
  1442.         MOVEM.l (a7)+,d1-d7/a0-a2
  1443.         MOVE.l  26(a4),a5
  1444.         JSR    -82(a5)
  1445.         MOVEM.l (a7)+,d1-d7/a0-a2
  1446.         LEA.l  _S82,a0
  1447.         JSR     PB_CopyString
  1448.         MOVEM.l d1-d7/a0-a2,-(a7)
  1449.         MOVEM.l d1-d7/a0-a2,-(a7)
  1450.         MOVE.l  30(a4),a5
  1451.         JSR    -56(a5)
  1452.         MOVEM.l (a7)+,d1-d7/a0-a2
  1453.         MOVE.l  26(a4),a5
  1454.         JSR    -82(a5)
  1455.         MOVEM.l (a7)+,d1-d7/a0-a2
  1456.         LEA.l  _S83,a0
  1457.         JSR     PB_CopyString
  1458.         MOVEM.l d1-d7/a0-a2,-(a7)
  1459.         MOVEM.l d1-d7/a0-a2,-(a7)
  1460.         MOVE.l  30(a4),a5
  1461.         JSR    -100(a5)
  1462.         MOVEM.l (a7)+,d1-d7/a0-a2
  1463.         MOVE.l  26(a4),a5
  1464.         JSR    -82(a5)
  1465.         MOVEM.l (a7)+,d1-d7/a0-a2
  1466.         MOVE.l  (a7)+,a3
  1467.         MOVE.l  a3,d1
  1468.         MOVE.l  18(a4),a6
  1469.         MOVE.l  22(a4),a5
  1470.         JSR    -122(a5)
  1471. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  1472.         MOVEM.l d1-d7/a0-a2,-(a7)
  1473.         MOVE.w  #320,d1
  1474.         EXT.l   d1
  1475.         MOVE.w  #200,d2
  1476.         EXT.l   d2
  1477.         MOVEQ   #3,d3
  1478.         MOVEQ   #0,d4
  1479.         MOVEQ   #1,d0
  1480.         MOVE.l  14(a4),a6
  1481.         MOVE.l  30(a4),a5
  1482.         JSR    -184(a5)
  1483.         MOVEM.l (a7)+,d1-d7/a0-a2
  1484.         TST.l   d0
  1485.         BEQ    _EndIf22
  1486. ;    Delay(50)
  1487.         MOVEQ   #50,d1
  1488.         MOVE.l  18(a4),a6
  1489.         MOVE.l  22(a4),a5
  1490.         JSR    -160(a5)
  1491. ;    CloseScreen(1)
  1492.         MOVEQ   #1,d0
  1493.         MOVE.l  14(a4),a6
  1494.         MOVE.l  30(a4),a5
  1495.         JSR    -344(a5)
  1496. ;  EndIf
  1497. _EndIf22
  1498. ;  UseScreen(0)
  1499.         MOVEQ   #0,d0
  1500.         MOVE.l  30(a4),a5
  1501.         JSR    -14(a5)
  1502. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  1503.         MOVE.w  #255,d1
  1504.         EXT.l   d1
  1505.         MOVE.w  #255,d2
  1506.         EXT.l   d2
  1507.         MOVEQ   #0,d3
  1508.         MOVE.w  #255,d0
  1509.         EXT.l   d0
  1510.         MOVE.l  10(a4),a6
  1511.         MOVE.l  30(a4),a5
  1512.         JSR    -228(a5)
  1513.         MOVE.w  d0,4(a4)
  1514. ;  PrintN("Pure White colour found at colour: "+Str(a))
  1515.         LEA.l  _S84,a0
  1516.         MOVE.l  a3,-(a7)
  1517.         JSR     PB_CopyString
  1518.         MOVEM.l d1-d7/a0-a2,-(a7)
  1519.         MOVE.w  4(a4),d0
  1520.         EXT.l   d0
  1521.         MOVE.l  26(a4),a5
  1522.         JSR    -82(a5)
  1523.         MOVEM.l (a7)+,d1-d7/a0-a2
  1524.         MOVE.l  (a7)+,a3
  1525.         MOVE.l  a3,d1
  1526.         MOVE.l  18(a4),a6
  1527.         MOVE.l  22(a4),a5
  1528.         JSR    -122(a5)
  1529. ;  ReleasePen(a)                     ; Release it to the system
  1530.         MOVE.w  4(a4),d0
  1531.         EXT.l   d0
  1532.         MOVE.l  10(a4),a6
  1533.         MOVE.l  30(a4),a5
  1534.         JSR    -110(a5)
  1535. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  1536.         MOVEM.l d1-d7/a0-a2,-(a7)
  1537.         LEA.l  _S85,a0
  1538.         MOVEQ   #1,d0
  1539.         MOVE.l  14(a4),a6
  1540.         MOVE.l  30(a4),a5
  1541.         JSR    -340(a5)
  1542.         MOVEM.l (a7)+,d1-d7/a0-a2
  1543.         TST.l   d0
  1544.         BEQ    _EndIf23
  1545. ;    PrintN("Workbench screen found !")
  1546.         LEA.l  _S86,a0
  1547.         MOVE.l  a0,d1
  1548.         MOVE.l  18(a4),a6
  1549.         MOVE.l  22(a4),a5
  1550.         JSR    -122(a5)
  1551. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  1552.         LEA.l  _S87,a0
  1553.         MOVE.l  a0,d1
  1554.         MOVE.l  18(a4),a6
  1555.         MOVE.l  22(a4),a5
  1556.         JSR    -138(a5)
  1557.         MOVEM.l d1-d7/a0-a2,-(a7)
  1558.         MOVE.l  30(a4),a5
  1559.         JSR    -46(a5)
  1560.         MOVEM.l (a7)+,d1-d7/a0-a2
  1561.         MOVE.l  18(a4),a6
  1562.         MOVE.l  22(a4),a5
  1563.         JSR    -94(a5)
  1564. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  1565.         LEA.l  _S88,a0
  1566.         MOVE.l  a0,d1
  1567.         MOVE.l  18(a4),a6
  1568.         MOVE.l  22(a4),a5
  1569.         JSR    -138(a5)
  1570.         MOVEM.l d1-d7/a0-a2,-(a7)
  1571.         MOVE.l  30(a4),a5
  1572.         JSR    -38(a5)
  1573.         MOVEM.l (a7)+,d1-d7/a0-a2
  1574.         MOVE.l  18(a4),a6
  1575.         MOVE.l  22(a4),a5
  1576.         JSR    -54(a5)
  1577. ;    Delay(10)                       ; Flash the workbench screen !
  1578.         MOVEQ   #10,d1
  1579.         MOVE.l  18(a4),a6
  1580.         MOVE.l  22(a4),a5
  1581.         JSR    -160(a5)
  1582. ;    FlashScreen()
  1583.         MOVE.l  14(a4),a6
  1584.         MOVE.l  30(a4),a5
  1585.         JSR    -296(a5)
  1586. ;  Else
  1587.         JMP    _EndIf24
  1588. _EndIf23
  1589. ;    PrintN("Workbench screen isn't found ?!")
  1590.         LEA.l  _S89,a0
  1591.         MOVE.l  a0,d1
  1592.         MOVE.l  18(a4),a6
  1593.         MOVE.l  22(a4),a5
  1594.         JSR    -122(a5)
  1595. ;  Endif
  1596. _EndIf24
  1597. ; EndIf
  1598. _EndIf21
  1599. ; PrintN("Press the mouse to quit")
  1600.         LEA.l  _S90,a0
  1601.         MOVE.l  a0,d1
  1602.         MOVE.l  18(a4),a6
  1603.         MOVE.l  22(a4),a5
  1604.         JSR    -122(a5)
  1605. ; MouseWait()
  1606.         MOVE.l  10(a4),a6
  1607.         MOVE.l  22(a4),a5
  1608.         JSR    -156(a5)
  1609. ; End
  1610.         JMP    _PB_EOP
  1611. ; InitScreen(1) ; We will need 2 screens
  1612.         MOVEQ   #1,d0
  1613.         MOVE.l  6(a4),a6
  1614.         MOVE.l  30(a4),a5
  1615.         JSR    -252(a5)
  1616. ; If FindScreen(0,"") ; Find de default public screen
  1617.         MOVEM.l d1-d7/a0-a2,-(a7)
  1618.         LEA.l  _S91,a0
  1619.         MOVEQ   #0,d0
  1620.         MOVE.l  14(a4),a6
  1621.         MOVE.l  30(a4),a5
  1622.         JSR    -340(a5)
  1623.         MOVEM.l (a7)+,d1-d7/a0-a2
  1624.         TST.l   d0
  1625.         BEQ    _EndIf25
  1626. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  1627.         LEA.l  _S92,a0
  1628.         MOVE.l  a0,d1
  1629.         MOVE.l  18(a4),a6
  1630.         MOVE.l  22(a4),a5
  1631.         JSR    -138(a5)
  1632.         MOVEM.l d1-d7/a0-a2,-(a7)
  1633.         MOVE.l  30(a4),a5
  1634.         JSR    -70(a5)
  1635.         MOVEM.l (a7)+,d1-d7/a0-a2
  1636.         MOVE.l  18(a4),a6
  1637.         MOVE.l  22(a4),a5
  1638.         JSR    -54(a5)
  1639. ;  HideScreen() ; Hide it
  1640.         MOVE.l  14(a4),a6
  1641.         MOVE.l  30(a4),a5
  1642.         JSR    -258(a5)
  1643. ;  Delay(10)    ; Wait a little bit...
  1644.         MOVEQ   #10,d1
  1645.         MOVE.l  18(a4),a6
  1646.         MOVE.l  22(a4),a5
  1647.         JSR    -160(a5)
  1648. ;  ShowScreen() ; and show it !
  1649.         MOVE.l  14(a4),a6
  1650.         MOVE.l  30(a4),a5
  1651.         JSR    -20(a5)
  1652. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  1653.         LEA.l  _S93,a0
  1654.         MOVE.l  a3,-(a7)
  1655.         JSR     PB_CopyString
  1656.         MOVEM.l d1-d7/a0-a2,-(a7)
  1657.         MOVEM.l d1-d7/a0-a2,-(a7)
  1658.         MOVE.l  30(a4),a5
  1659.         JSR    -30(a5)
  1660.         MOVEM.l (a7)+,d1-d7/a0-a2
  1661.         MOVE.l  26(a4),a5
  1662.         JSR    -82(a5)
  1663.         MOVEM.l (a7)+,d1-d7/a0-a2
  1664.         LEA.l  _S94,a0
  1665.         JSR     PB_CopyString
  1666.         MOVEM.l d1-d7/a0-a2,-(a7)
  1667.         MOVEM.l d1-d7/a0-a2,-(a7)
  1668.         MOVE.l  30(a4),a5
  1669.         JSR    -80(a5)
  1670.         MOVEM.l (a7)+,d1-d7/a0-a2
  1671.         MOVE.l  26(a4),a5
  1672.         JSR    -82(a5)
  1673.         MOVEM.l (a7)+,d1-d7/a0-a2
  1674.         LEA.l  _S95,a0
  1675.         JSR     PB_CopyString
  1676.         MOVEM.l d1-d7/a0-a2,-(a7)
  1677.         MOVEM.l d1-d7/a0-a2,-(a7)
  1678.         MOVE.l  30(a4),a5
  1679.         JSR    -90(a5)
  1680.         MOVEM.l (a7)+,d1-d7/a0-a2
  1681.         MOVE.l  26(a4),a5
  1682.         JSR    -82(a5)
  1683.         MOVEM.l (a7)+,d1-d7/a0-a2
  1684.         MOVE.l  (a7)+,a3
  1685.         MOVE.l  a3,d1
  1686.         MOVE.l  18(a4),a6
  1687.         MOVE.l  22(a4),a5
  1688.         JSR    -122(a5)
  1689. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  1690.         LEA.l  _S96,a0
  1691.         MOVE.l  a3,-(a7)
  1692.         JSR     PB_CopyString
  1693.         MOVEM.l d1-d7/a0-a2,-(a7)
  1694.         MOVEM.l d1-d7/a0-a2,-(a7)
  1695.         MOVE.l  30(a4),a5
  1696.         JSR    -66(a5)
  1697.         MOVEM.l (a7)+,d1-d7/a0-a2
  1698.         MOVE.l  26(a4),a5
  1699.         JSR    -82(a5)
  1700.         MOVEM.l (a7)+,d1-d7/a0-a2
  1701.         LEA.l  _S97,a0
  1702.         JSR     PB_CopyString
  1703.         MOVEM.l d1-d7/a0-a2,-(a7)
  1704.         MOVEM.l d1-d7/a0-a2,-(a7)
  1705.         MOVE.l  30(a4),a5
  1706.         JSR    -56(a5)
  1707.         MOVEM.l (a7)+,d1-d7/a0-a2
  1708.         MOVE.l  26(a4),a5
  1709.         JSR    -82(a5)
  1710.         MOVEM.l (a7)+,d1-d7/a0-a2
  1711.         LEA.l  _S98,a0
  1712.         JSR     PB_CopyString
  1713.         MOVEM.l d1-d7/a0-a2,-(a7)
  1714.         MOVEM.l d1-d7/a0-a2,-(a7)
  1715.         MOVE.l  30(a4),a5
  1716.         JSR    -100(a5)
  1717.         MOVEM.l (a7)+,d1-d7/a0-a2
  1718.         MOVE.l  26(a4),a5
  1719.         JSR    -82(a5)
  1720.         MOVEM.l (a7)+,d1-d7/a0-a2
  1721.         MOVE.l  (a7)+,a3
  1722.         MOVE.l  a3,d1
  1723.         MOVE.l  18(a4),a6
  1724.         MOVE.l  22(a4),a5
  1725.         JSR    -122(a5)
  1726. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  1727.         MOVEM.l d1-d7/a0-a2,-(a7)
  1728.         MOVE.w  #320,d1
  1729.         EXT.l   d1
  1730.         MOVE.w  #200,d2
  1731.         EXT.l   d2
  1732.         MOVEQ   #3,d3
  1733.         MOVEQ   #0,d4
  1734.         MOVEQ   #1,d0
  1735.         MOVE.l  14(a4),a6
  1736.         MOVE.l  30(a4),a5
  1737.         JSR    -184(a5)
  1738.         MOVEM.l (a7)+,d1-d7/a0-a2
  1739.         TST.l   d0
  1740.         BEQ    _EndIf26
  1741. ;    Delay(50)
  1742.         MOVEQ   #50,d1
  1743.         MOVE.l  18(a4),a6
  1744.         MOVE.l  22(a4),a5
  1745.         JSR    -160(a5)
  1746. ;    CloseScreen(1)
  1747.         MOVEQ   #1,d0
  1748.         MOVE.l  14(a4),a6
  1749.         MOVE.l  30(a4),a5
  1750.         JSR    -344(a5)
  1751. ;  EndIf
  1752. _EndIf26
  1753. ;  UseScreen(0)
  1754.         MOVEQ   #0,d0
  1755.         MOVE.l  30(a4),a5
  1756.         JSR    -14(a5)
  1757. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  1758.         MOVE.w  #255,d1
  1759.         EXT.l   d1
  1760.         MOVE.w  #255,d2
  1761.         EXT.l   d2
  1762.         MOVEQ   #0,d3
  1763.         MOVE.w  #255,d0
  1764.         EXT.l   d0
  1765.         MOVE.l  10(a4),a6
  1766.         MOVE.l  30(a4),a5
  1767.         JSR    -228(a5)
  1768.         MOVE.w  d0,4(a4)
  1769. ;  PrintN("Pure White colour found at colour: "+Str(a))
  1770.         LEA.l  _S99,a0
  1771.         MOVE.l  a3,-(a7)
  1772.         JSR     PB_CopyString
  1773.         MOVEM.l d1-d7/a0-a2,-(a7)
  1774.         MOVE.w  4(a4),d0
  1775.         EXT.l   d0
  1776.         MOVE.l  26(a4),a5
  1777.         JSR    -82(a5)
  1778.         MOVEM.l (a7)+,d1-d7/a0-a2
  1779.         MOVE.l  (a7)+,a3
  1780.         MOVE.l  a3,d1
  1781.         MOVE.l  18(a4),a6
  1782.         MOVE.l  22(a4),a5
  1783.         JSR    -122(a5)
  1784. ;  ReleasePen(a)                     ; Release it to the system
  1785.         MOVE.w  4(a4),d0
  1786.         EXT.l   d0
  1787.         MOVE.l  10(a4),a6
  1788.         MOVE.l  30(a4),a5
  1789.         JSR    -110(a5)
  1790. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  1791.         MOVEM.l d1-d7/a0-a2,-(a7)
  1792.         LEA.l  _S100,a0
  1793.         MOVEQ   #1,d0
  1794.         MOVE.l  14(a4),a6
  1795.         MOVE.l  30(a4),a5
  1796.         JSR    -340(a5)
  1797.         MOVEM.l (a7)+,d1-d7/a0-a2
  1798.         TST.l   d0
  1799.         BEQ    _EndIf27
  1800. ;    PrintN("Workbench screen found !")
  1801.         LEA.l  _S101,a0
  1802.         MOVE.l  a0,d1
  1803.         MOVE.l  18(a4),a6
  1804.         MOVE.l  22(a4),a5
  1805.         JSR    -122(a5)
  1806. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  1807.         LEA.l  _S102,a0
  1808.         MOVE.l  a0,d1
  1809.         MOVE.l  18(a4),a6
  1810.         MOVE.l  22(a4),a5
  1811.         JSR    -138(a5)
  1812.         MOVEM.l d1-d7/a0-a2,-(a7)
  1813.         MOVE.l  30(a4),a5
  1814.         JSR    -46(a5)
  1815.         MOVEM.l (a7)+,d1-d7/a0-a2
  1816.         MOVE.l  18(a4),a6
  1817.         MOVE.l  22(a4),a5
  1818.         JSR    -94(a5)
  1819. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  1820.         LEA.l  _S103,a0
  1821.         MOVE.l  a0,d1
  1822.         MOVE.l  18(a4),a6
  1823.         MOVE.l  22(a4),a5
  1824.         JSR    -138(a5)
  1825.         MOVEM.l d1-d7/a0-a2,-(a7)
  1826.         MOVE.l  30(a4),a5
  1827.         JSR    -38(a5)
  1828.         MOVEM.l (a7)+,d1-d7/a0-a2
  1829.         MOVE.l  18(a4),a6
  1830.         MOVE.l  22(a4),a5
  1831.         JSR    -54(a5)
  1832. ;    Delay(10)                       ; Flash the workbench screen !
  1833.         MOVEQ   #10,d1
  1834.         MOVE.l  18(a4),a6
  1835.         MOVE.l  22(a4),a5
  1836.         JSR    -160(a5)
  1837. ;    FlashScreen()
  1838.         MOVE.l  14(a4),a6
  1839.         MOVE.l  30(a4),a5
  1840.         JSR    -296(a5)
  1841. ;  Else
  1842.         JMP    _EndIf28
  1843. _EndIf27
  1844. ;    PrintN("Workbench screen isn't found ?!")
  1845.         LEA.l  _S104,a0
  1846.         MOVE.l  a0,d1
  1847.         MOVE.l  18(a4),a6
  1848.         MOVE.l  22(a4),a5
  1849.         JSR    -122(a5)
  1850. ;  Endif
  1851. _EndIf28
  1852. ; EndIf
  1853. _EndIf25
  1854. ; PrintN("Press the mouse to quit")
  1855.         LEA.l  _S105,a0
  1856.         MOVE.l  a0,d1
  1857.         MOVE.l  18(a4),a6
  1858.         MOVE.l  22(a4),a5
  1859.         JSR    -122(a5)
  1860. ; MouseWait()
  1861.         MOVE.l  10(a4),a6
  1862.         MOVE.l  22(a4),a5
  1863.         JSR    -156(a5)
  1864. ; End
  1865.         JMP    _PB_EOP
  1866. ; InitScreen(1) ; We will need 2 screens
  1867.         MOVEQ   #1,d0
  1868.         MOVE.l  6(a4),a6
  1869.         MOVE.l  30(a4),a5
  1870.         JSR    -252(a5)
  1871. ; If FindScreen(0,"") ; Find de default public screen
  1872.         MOVEM.l d1-d7/a0-a2,-(a7)
  1873.         LEA.l  _S106,a0
  1874.         MOVEQ   #0,d0
  1875.         MOVE.l  14(a4),a6
  1876.         MOVE.l  30(a4),a5
  1877.         JSR    -340(a5)
  1878.         MOVEM.l (a7)+,d1-d7/a0-a2
  1879.         TST.l   d0
  1880.         BEQ    _EndIf29
  1881. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  1882.         LEA.l  _S107,a0
  1883.         MOVE.l  a0,d1
  1884.         MOVE.l  18(a4),a6
  1885.         MOVE.l  22(a4),a5
  1886.         JSR    -138(a5)
  1887.         MOVEM.l d1-d7/a0-a2,-(a7)
  1888.         MOVE.l  30(a4),a5
  1889.         JSR    -70(a5)
  1890.         MOVEM.l (a7)+,d1-d7/a0-a2
  1891.         MOVE.l  18(a4),a6
  1892.         MOVE.l  22(a4),a5
  1893.         JSR    -54(a5)
  1894. ;  HideScreen() ; Hide it
  1895.         MOVE.l  14(a4),a6
  1896.         MOVE.l  30(a4),a5
  1897.         JSR    -258(a5)
  1898. ;  Delay(10)    ; Wait a little bit...
  1899.         MOVEQ   #10,d1
  1900.         MOVE.l  18(a4),a6
  1901.         MOVE.l  22(a4),a5
  1902.         JSR    -160(a5)
  1903. ;  ShowScreen() ; and show it !
  1904.         MOVE.l  14(a4),a6
  1905.         MOVE.l  30(a4),a5
  1906.         JSR    -20(a5)
  1907. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  1908.         LEA.l  _S108,a0
  1909.         MOVE.l  a3,-(a7)
  1910.         JSR     PB_CopyString
  1911.         MOVEM.l d1-d7/a0-a2,-(a7)
  1912.         MOVEM.l d1-d7/a0-a2,-(a7)
  1913.         MOVE.l  30(a4),a5
  1914.         JSR    -30(a5)
  1915.         MOVEM.l (a7)+,d1-d7/a0-a2
  1916.         MOVE.l  26(a4),a5
  1917.         JSR    -82(a5)
  1918.         MOVEM.l (a7)+,d1-d7/a0-a2
  1919.         LEA.l  _S109,a0
  1920.         JSR     PB_CopyString
  1921.         MOVEM.l d1-d7/a0-a2,-(a7)
  1922.         MOVEM.l d1-d7/a0-a2,-(a7)
  1923.         MOVE.l  30(a4),a5
  1924.         JSR    -80(a5)
  1925.         MOVEM.l (a7)+,d1-d7/a0-a2
  1926.         MOVE.l  26(a4),a5
  1927.         JSR    -82(a5)
  1928.         MOVEM.l (a7)+,d1-d7/a0-a2
  1929.         LEA.l  _S110,a0
  1930.         JSR     PB_CopyString
  1931.         MOVEM.l d1-d7/a0-a2,-(a7)
  1932.         MOVEM.l d1-d7/a0-a2,-(a7)
  1933.         MOVE.l  30(a4),a5
  1934.         JSR    -90(a5)
  1935.         MOVEM.l (a7)+,d1-d7/a0-a2
  1936.         MOVE.l  26(a4),a5
  1937.         JSR    -82(a5)
  1938.         MOVEM.l (a7)+,d1-d7/a0-a2
  1939.         MOVE.l  (a7)+,a3
  1940.         MOVE.l  a3,d1
  1941.         MOVE.l  18(a4),a6
  1942.         MOVE.l  22(a4),a5
  1943.         JSR    -122(a5)
  1944. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  1945.         LEA.l  _S111,a0
  1946.         MOVE.l  a3,-(a7)
  1947.         JSR     PB_CopyString
  1948.         MOVEM.l d1-d7/a0-a2,-(a7)
  1949.         MOVEM.l d1-d7/a0-a2,-(a7)
  1950.         MOVE.l  30(a4),a5
  1951.         JSR    -66(a5)
  1952.         MOVEM.l (a7)+,d1-d7/a0-a2
  1953.         MOVE.l  26(a4),a5
  1954.         JSR    -82(a5)
  1955.         MOVEM.l (a7)+,d1-d7/a0-a2
  1956.         LEA.l  _S112,a0
  1957.         JSR     PB_CopyString
  1958.         MOVEM.l d1-d7/a0-a2,-(a7)
  1959.         MOVEM.l d1-d7/a0-a2,-(a7)
  1960.         MOVE.l  30(a4),a5
  1961.         JSR    -56(a5)
  1962.         MOVEM.l (a7)+,d1-d7/a0-a2
  1963.         MOVE.l  26(a4),a5
  1964.         JSR    -82(a5)
  1965.         MOVEM.l (a7)+,d1-d7/a0-a2
  1966.         LEA.l  _S113,a0
  1967.         JSR     PB_CopyString
  1968.         MOVEM.l d1-d7/a0-a2,-(a7)
  1969.         MOVEM.l d1-d7/a0-a2,-(a7)
  1970.         MOVE.l  30(a4),a5
  1971.         JSR    -100(a5)
  1972.         MOVEM.l (a7)+,d1-d7/a0-a2
  1973.         MOVE.l  26(a4),a5
  1974.         JSR    -82(a5)
  1975.         MOVEM.l (a7)+,d1-d7/a0-a2
  1976.         MOVE.l  (a7)+,a3
  1977.         MOVE.l  a3,d1
  1978.         MOVE.l  18(a4),a6
  1979.         MOVE.l  22(a4),a5
  1980.         JSR    -122(a5)
  1981. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  1982.         MOVEM.l d1-d7/a0-a2,-(a7)
  1983.         MOVE.w  #320,d1
  1984.         EXT.l   d1
  1985.         MOVE.w  #200,d2
  1986.         EXT.l   d2
  1987.         MOVEQ   #3,d3
  1988.         MOVEQ   #0,d4
  1989.         MOVEQ   #1,d0
  1990.         MOVE.l  14(a4),a6
  1991.         MOVE.l  30(a4),a5
  1992.         JSR    -184(a5)
  1993.         MOVEM.l (a7)+,d1-d7/a0-a2
  1994.         TST.l   d0
  1995.         BEQ    _EndIf30
  1996. ;    Delay(50)
  1997.         MOVEQ   #50,d1
  1998.         MOVE.l  18(a4),a6
  1999.         MOVE.l  22(a4),a5
  2000.         JSR    -160(a5)
  2001. ;    CloseScreen(1)
  2002.         MOVEQ   #1,d0
  2003.         MOVE.l  14(a4),a6
  2004.         MOVE.l  30(a4),a5
  2005.         JSR    -344(a5)
  2006. ;  EndIf
  2007. _EndIf30
  2008. ;  UseScreen(0)
  2009.         MOVEQ   #0,d0
  2010.         MOVE.l  30(a4),a5
  2011.         JSR    -14(a5)
  2012. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  2013.         MOVE.w  #255,d1
  2014.         EXT.l   d1
  2015.         MOVE.w  #255,d2
  2016.         EXT.l   d2
  2017.         MOVEQ   #0,d3
  2018.         MOVE.w  #255,d0
  2019.         EXT.l   d0
  2020.         MOVE.l  10(a4),a6
  2021.         MOVE.l  30(a4),a5
  2022.         JSR    -228(a5)
  2023.         MOVE.w  d0,4(a4)
  2024. ;  PrintN("Pure White colour found at colour: "+Str(a))
  2025.         LEA.l  _S114,a0
  2026.         MOVE.l  a3,-(a7)
  2027.         JSR     PB_CopyString
  2028.         MOVEM.l d1-d7/a0-a2,-(a7)
  2029.         MOVE.w  4(a4),d0
  2030.         EXT.l   d0
  2031.         MOVE.l  26(a4),a5
  2032.         JSR    -82(a5)
  2033.         MOVEM.l (a7)+,d1-d7/a0-a2
  2034.         MOVE.l  (a7)+,a3
  2035.         MOVE.l  a3,d1
  2036.         MOVE.l  18(a4),a6
  2037.         MOVE.l  22(a4),a5
  2038.         JSR    -122(a5)
  2039. ;  ReleasePen(a)                     ; Release it to the system
  2040.         MOVE.w  4(a4),d0
  2041.         EXT.l   d0
  2042.         MOVE.l  10(a4),a6
  2043.         MOVE.l  30(a4),a5
  2044.         JSR    -110(a5)
  2045. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  2046.         MOVEM.l d1-d7/a0-a2,-(a7)
  2047.         LEA.l  _S115,a0
  2048.         MOVEQ   #1,d0
  2049.         MOVE.l  14(a4),a6
  2050.         MOVE.l  30(a4),a5
  2051.         JSR    -340(a5)
  2052.         MOVEM.l (a7)+,d1-d7/a0-a2
  2053.         TST.l   d0
  2054.         BEQ    _EndIf31
  2055. ;    PrintN("Workbench screen found !")
  2056.         LEA.l  _S116,a0
  2057.         MOVE.l  a0,d1
  2058.         MOVE.l  18(a4),a6
  2059.         MOVE.l  22(a4),a5
  2060.         JSR    -122(a5)
  2061. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  2062.         LEA.l  _S117,a0
  2063.         MOVE.l  a0,d1
  2064.         MOVE.l  18(a4),a6
  2065.         MOVE.l  22(a4),a5
  2066.         JSR    -138(a5)
  2067.         MOVEM.l d1-d7/a0-a2,-(a7)
  2068.         MOVE.l  30(a4),a5
  2069.         JSR    -46(a5)
  2070.         MOVEM.l (a7)+,d1-d7/a0-a2
  2071.         MOVE.l  18(a4),a6
  2072.         MOVE.l  22(a4),a5
  2073.         JSR    -94(a5)
  2074. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  2075.         LEA.l  _S118,a0
  2076.         MOVE.l  a0,d1
  2077.         MOVE.l  18(a4),a6
  2078.         MOVE.l  22(a4),a5
  2079.         JSR    -138(a5)
  2080.         MOVEM.l d1-d7/a0-a2,-(a7)
  2081.         MOVE.l  30(a4),a5
  2082.         JSR    -38(a5)
  2083.         MOVEM.l (a7)+,d1-d7/a0-a2
  2084.         MOVE.l  18(a4),a6
  2085.         MOVE.l  22(a4),a5
  2086.         JSR    -54(a5)
  2087. ;    Delay(10)                       ; Flash the workbench screen !
  2088.         MOVEQ   #10,d1
  2089.         MOVE.l  18(a4),a6
  2090.         MOVE.l  22(a4),a5
  2091.         JSR    -160(a5)
  2092. ;    FlashScreen()
  2093.         MOVE.l  14(a4),a6
  2094.         MOVE.l  30(a4),a5
  2095.         JSR    -296(a5)
  2096. ;  Else
  2097.         JMP    _EndIf32
  2098. _EndIf31
  2099. ;    PrintN("Workbench screen isn't found ?!")
  2100.         LEA.l  _S119,a0
  2101.         MOVE.l  a0,d1
  2102.         MOVE.l  18(a4),a6
  2103.         MOVE.l  22(a4),a5
  2104.         JSR    -122(a5)
  2105. ;  Endif
  2106. _EndIf32
  2107. ; EndIf
  2108. _EndIf29
  2109. ; PrintN("Press the mouse to quit")
  2110.         LEA.l  _S120,a0
  2111.         MOVE.l  a0,d1
  2112.         MOVE.l  18(a4),a6
  2113.         MOVE.l  22(a4),a5
  2114.         JSR    -122(a5)
  2115. ; MouseWait()
  2116.         MOVE.l  10(a4),a6
  2117.         MOVE.l  22(a4),a5
  2118.         JSR    -156(a5)
  2119. ; End
  2120.         JMP    _PB_EOP
  2121. ; InitScreen(1) ; We will need 2 screens
  2122.         MOVEQ   #1,d0
  2123.         MOVE.l  6(a4),a6
  2124.         MOVE.l  30(a4),a5
  2125.         JSR    -252(a5)
  2126. ; If FindScreen(0,"") ; Find de default public screen
  2127.         MOVEM.l d1-d7/a0-a2,-(a7)
  2128.         LEA.l  _S121,a0
  2129.         MOVEQ   #0,d0
  2130.         MOVE.l  14(a4),a6
  2131.         MOVE.l  30(a4),a5
  2132.         JSR    -340(a5)
  2133.         MOVEM.l (a7)+,d1-d7/a0-a2
  2134.         TST.l   d0
  2135.         BEQ    _EndIf33
  2136. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  2137.         LEA.l  _S122,a0
  2138.         MOVE.l  a0,d1
  2139.         MOVE.l  18(a4),a6
  2140.         MOVE.l  22(a4),a5
  2141.         JSR    -138(a5)
  2142.         MOVEM.l d1-d7/a0-a2,-(a7)
  2143.         MOVE.l  30(a4),a5
  2144.         JSR    -70(a5)
  2145.         MOVEM.l (a7)+,d1-d7/a0-a2
  2146.         MOVE.l  18(a4),a6
  2147.         MOVE.l  22(a4),a5
  2148.         JSR    -54(a5)
  2149. ;  HideScreen() ; Hide it
  2150.         MOVE.l  14(a4),a6
  2151.         MOVE.l  30(a4),a5
  2152.         JSR    -258(a5)
  2153. ;  Delay(10)    ; Wait a little bit...
  2154.         MOVEQ   #10,d1
  2155.         MOVE.l  18(a4),a6
  2156.         MOVE.l  22(a4),a5
  2157.         JSR    -160(a5)
  2158. ;  ShowScreen() ; and show it !
  2159.         MOVE.l  14(a4),a6
  2160.         MOVE.l  30(a4),a5
  2161.         JSR    -20(a5)
  2162. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  2163.         LEA.l  _S123,a0
  2164.         MOVE.l  a3,-(a7)
  2165.         JSR     PB_CopyString
  2166.         MOVEM.l d1-d7/a0-a2,-(a7)
  2167.         MOVEM.l d1-d7/a0-a2,-(a7)
  2168.         MOVE.l  30(a4),a5
  2169.         JSR    -30(a5)
  2170.         MOVEM.l (a7)+,d1-d7/a0-a2
  2171.         MOVE.l  26(a4),a5
  2172.         JSR    -82(a5)
  2173.         MOVEM.l (a7)+,d1-d7/a0-a2
  2174.         LEA.l  _S124,a0
  2175.         JSR     PB_CopyString
  2176.         MOVEM.l d1-d7/a0-a2,-(a7)
  2177.         MOVEM.l d1-d7/a0-a2,-(a7)
  2178.         MOVE.l  30(a4),a5
  2179.         JSR    -80(a5)
  2180.         MOVEM.l (a7)+,d1-d7/a0-a2
  2181.         MOVE.l  26(a4),a5
  2182.         JSR    -82(a5)
  2183.         MOVEM.l (a7)+,d1-d7/a0-a2
  2184.         LEA.l  _S125,a0
  2185.         JSR     PB_CopyString
  2186.         MOVEM.l d1-d7/a0-a2,-(a7)
  2187.         MOVEM.l d1-d7/a0-a2,-(a7)
  2188.         MOVE.l  30(a4),a5
  2189.         JSR    -90(a5)
  2190.         MOVEM.l (a7)+,d1-d7/a0-a2
  2191.         MOVE.l  26(a4),a5
  2192.         JSR    -82(a5)
  2193.         MOVEM.l (a7)+,d1-d7/a0-a2
  2194.         MOVE.l  (a7)+,a3
  2195.         MOVE.l  a3,d1
  2196.         MOVE.l  18(a4),a6
  2197.         MOVE.l  22(a4),a5
  2198.         JSR    -122(a5)
  2199. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  2200.         LEA.l  _S126,a0
  2201.         MOVE.l  a3,-(a7)
  2202.         JSR     PB_CopyString
  2203.         MOVEM.l d1-d7/a0-a2,-(a7)
  2204.         MOVEM.l d1-d7/a0-a2,-(a7)
  2205.         MOVE.l  30(a4),a5
  2206.         JSR    -66(a5)
  2207.         MOVEM.l (a7)+,d1-d7/a0-a2
  2208.         MOVE.l  26(a4),a5
  2209.         JSR    -82(a5)
  2210.         MOVEM.l (a7)+,d1-d7/a0-a2
  2211.         LEA.l  _S127,a0
  2212.         JSR     PB_CopyString
  2213.         MOVEM.l d1-d7/a0-a2,-(a7)
  2214.         MOVEM.l d1-d7/a0-a2,-(a7)
  2215.         MOVE.l  30(a4),a5
  2216.         JSR    -56(a5)
  2217.         MOVEM.l (a7)+,d1-d7/a0-a2
  2218.         MOVE.l  26(a4),a5
  2219.         JSR    -82(a5)
  2220.         MOVEM.l (a7)+,d1-d7/a0-a2
  2221.         LEA.l  _S128,a0
  2222.         JSR     PB_CopyString
  2223.         MOVEM.l d1-d7/a0-a2,-(a7)
  2224.         MOVEM.l d1-d7/a0-a2,-(a7)
  2225.         MOVE.l  30(a4),a5
  2226.         JSR    -100(a5)
  2227.         MOVEM.l (a7)+,d1-d7/a0-a2
  2228.         MOVE.l  26(a4),a5
  2229.         JSR    -82(a5)
  2230.         MOVEM.l (a7)+,d1-d7/a0-a2
  2231.         MOVE.l  (a7)+,a3
  2232.         MOVE.l  a3,d1
  2233.         MOVE.l  18(a4),a6
  2234.         MOVE.l  22(a4),a5
  2235.         JSR    -122(a5)
  2236. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  2237.         MOVEM.l d1-d7/a0-a2,-(a7)
  2238.         MOVE.w  #320,d1
  2239.         EXT.l   d1
  2240.         MOVE.w  #200,d2
  2241.         EXT.l   d2
  2242.         MOVEQ   #3,d3
  2243.         MOVEQ   #0,d4
  2244.         MOVEQ   #1,d0
  2245.         MOVE.l  14(a4),a6
  2246.         MOVE.l  30(a4),a5
  2247.         JSR    -184(a5)
  2248.         MOVEM.l (a7)+,d1-d7/a0-a2
  2249.         TST.l   d0
  2250.         BEQ    _EndIf34
  2251. ;    Delay(50)
  2252.         MOVEQ   #50,d1
  2253.         MOVE.l  18(a4),a6
  2254.         MOVE.l  22(a4),a5
  2255.         JSR    -160(a5)
  2256. ;    CloseScreen(1)
  2257.         MOVEQ   #1,d0
  2258.         MOVE.l  14(a4),a6
  2259.         MOVE.l  30(a4),a5
  2260.         JSR    -344(a5)
  2261. ;  EndIf
  2262. _EndIf34
  2263. ;  UseScreen(0)
  2264.         MOVEQ   #0,d0
  2265.         MOVE.l  30(a4),a5
  2266.         JSR    -14(a5)
  2267. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  2268.         MOVE.w  #255,d1
  2269.         EXT.l   d1
  2270.         MOVE.w  #255,d2
  2271.         EXT.l   d2
  2272.         MOVEQ   #0,d3
  2273.         MOVE.w  #255,d0
  2274.         EXT.l   d0
  2275.         MOVE.l  10(a4),a6
  2276.         MOVE.l  30(a4),a5
  2277.         JSR    -228(a5)
  2278.         MOVE.w  d0,4(a4)
  2279. ;  PrintN("Pure White colour found at colour: "+Str(a))
  2280.         LEA.l  _S129,a0
  2281.         MOVE.l  a3,-(a7)
  2282.         JSR     PB_CopyString
  2283.         MOVEM.l d1-d7/a0-a2,-(a7)
  2284.         MOVE.w  4(a4),d0
  2285.         EXT.l   d0
  2286.         MOVE.l  26(a4),a5
  2287.         JSR    -82(a5)
  2288.         MOVEM.l (a7)+,d1-d7/a0-a2
  2289.         MOVE.l  (a7)+,a3
  2290.         MOVE.l  a3,d1
  2291.         MOVE.l  18(a4),a6
  2292.         MOVE.l  22(a4),a5
  2293.         JSR    -122(a5)
  2294. ;  ReleasePen(a)                     ; Release it to the system
  2295.         MOVE.w  4(a4),d0
  2296.         EXT.l   d0
  2297.         MOVE.l  10(a4),a6
  2298.         MOVE.l  30(a4),a5
  2299.         JSR    -110(a5)
  2300. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  2301.         MOVEM.l d1-d7/a0-a2,-(a7)
  2302.         LEA.l  _S130,a0
  2303.         MOVEQ   #1,d0
  2304.         MOVE.l  14(a4),a6
  2305.         MOVE.l  30(a4),a5
  2306.         JSR    -340(a5)
  2307.         MOVEM.l (a7)+,d1-d7/a0-a2
  2308.         TST.l   d0
  2309.         BEQ    _EndIf35
  2310. ;    PrintN("Workbench screen found !")
  2311.         LEA.l  _S131,a0
  2312.         MOVE.l  a0,d1
  2313.         MOVE.l  18(a4),a6
  2314.         MOVE.l  22(a4),a5
  2315.         JSR    -122(a5)
  2316. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  2317.         LEA.l  _S132,a0
  2318.         MOVE.l  a0,d1
  2319.         MOVE.l  18(a4),a6
  2320.         MOVE.l  22(a4),a5
  2321.         JSR    -138(a5)
  2322.         MOVEM.l d1-d7/a0-a2,-(a7)
  2323.         MOVE.l  30(a4),a5
  2324.         JSR    -46(a5)
  2325.         MOVEM.l (a7)+,d1-d7/a0-a2
  2326.         MOVE.l  18(a4),a6
  2327.         MOVE.l  22(a4),a5
  2328.         JSR    -94(a5)
  2329. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  2330.         LEA.l  _S133,a0
  2331.         MOVE.l  a0,d1
  2332.         MOVE.l  18(a4),a6
  2333.         MOVE.l  22(a4),a5
  2334.         JSR    -138(a5)
  2335.         MOVEM.l d1-d7/a0-a2,-(a7)
  2336.         MOVE.l  30(a4),a5
  2337.         JSR    -38(a5)
  2338.         MOVEM.l (a7)+,d1-d7/a0-a2
  2339.         MOVE.l  18(a4),a6
  2340.         MOVE.l  22(a4),a5
  2341.         JSR    -54(a5)
  2342. ;    Delay(10)                       ; Flash the workbench screen !
  2343.         MOVEQ   #10,d1
  2344.         MOVE.l  18(a4),a6
  2345.         MOVE.l  22(a4),a5
  2346.         JSR    -160(a5)
  2347. ;    FlashScreen()
  2348.         MOVE.l  14(a4),a6
  2349.         MOVE.l  30(a4),a5
  2350.         JSR    -296(a5)
  2351. ;  Else
  2352.         JMP    _EndIf36
  2353. _EndIf35
  2354. ;    PrintN("Workbench screen isn't found ?!")
  2355.         LEA.l  _S134,a0
  2356.         MOVE.l  a0,d1
  2357.         MOVE.l  18(a4),a6
  2358.         MOVE.l  22(a4),a5
  2359.         JSR    -122(a5)
  2360. ;  Endif
  2361. _EndIf36
  2362. ; EndIf
  2363. _EndIf33
  2364. ; PrintN("Press the mouse to quit")
  2365.         LEA.l  _S135,a0
  2366.         MOVE.l  a0,d1
  2367.         MOVE.l  18(a4),a6
  2368.         MOVE.l  22(a4),a5
  2369.         JSR    -122(a5)
  2370. ; MouseWait()
  2371.         MOVE.l  10(a4),a6
  2372.         MOVE.l  22(a4),a5
  2373.         JSR    -156(a5)
  2374. ; End
  2375.         JMP    _PB_EOP
  2376. ; InitScreen(1) ; We will need 2 screens
  2377.         MOVEQ   #1,d0
  2378.         MOVE.l  6(a4),a6
  2379.         MOVE.l  30(a4),a5
  2380.         JSR    -252(a5)
  2381. ; If FindScreen(0,"") ; Find de default public screen
  2382.         MOVEM.l d1-d7/a0-a2,-(a7)
  2383.         LEA.l  _S136,a0
  2384.         MOVEQ   #0,d0
  2385.         MOVE.l  14(a4),a6
  2386.         MOVE.l  30(a4),a5
  2387.         JSR    -340(a5)
  2388.         MOVEM.l (a7)+,d1-d7/a0-a2
  2389.         TST.l   d0
  2390.         BEQ    _EndIf37
  2391. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  2392.         LEA.l  _S137,a0
  2393.         MOVE.l  a0,d1
  2394.         MOVE.l  18(a4),a6
  2395.         MOVE.l  22(a4),a5
  2396.         JSR    -138(a5)
  2397.         MOVEM.l d1-d7/a0-a2,-(a7)
  2398.         MOVE.l  30(a4),a5
  2399.         JSR    -70(a5)
  2400.         MOVEM.l (a7)+,d1-d7/a0-a2
  2401.         MOVE.l  18(a4),a6
  2402.         MOVE.l  22(a4),a5
  2403.         JSR    -54(a5)
  2404. ;  HideScreen() ; Hide it
  2405.         MOVE.l  14(a4),a6
  2406.         MOVE.l  30(a4),a5
  2407.         JSR    -258(a5)
  2408. ;  Delay(10)    ; Wait a little bit...
  2409.         MOVEQ   #10,d1
  2410.         MOVE.l  18(a4),a6
  2411.         MOVE.l  22(a4),a5
  2412.         JSR    -160(a5)
  2413. ;  ShowScreen() ; and show it !
  2414.         MOVE.l  14(a4),a6
  2415.         MOVE.l  30(a4),a5
  2416.         JSR    -20(a5)
  2417. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  2418.         LEA.l  _S138,a0
  2419.         MOVE.l  a3,-(a7)
  2420.         JSR     PB_CopyString
  2421.         MOVEM.l d1-d7/a0-a2,-(a7)
  2422.         MOVEM.l d1-d7/a0-a2,-(a7)
  2423.         MOVE.l  30(a4),a5
  2424.         JSR    -30(a5)
  2425.         MOVEM.l (a7)+,d1-d7/a0-a2
  2426.         MOVE.l  26(a4),a5
  2427.         JSR    -82(a5)
  2428.         MOVEM.l (a7)+,d1-d7/a0-a2
  2429.         LEA.l  _S139,a0
  2430.         JSR     PB_CopyString
  2431.         MOVEM.l d1-d7/a0-a2,-(a7)
  2432.         MOVEM.l d1-d7/a0-a2,-(a7)
  2433.         MOVE.l  30(a4),a5
  2434.         JSR    -80(a5)
  2435.         MOVEM.l (a7)+,d1-d7/a0-a2
  2436.         MOVE.l  26(a4),a5
  2437.         JSR    -82(a5)
  2438.         MOVEM.l (a7)+,d1-d7/a0-a2
  2439.         LEA.l  _S140,a0
  2440.         JSR     PB_CopyString
  2441.         MOVEM.l d1-d7/a0-a2,-(a7)
  2442.         MOVEM.l d1-d7/a0-a2,-(a7)
  2443.         MOVE.l  30(a4),a5
  2444.         JSR    -90(a5)
  2445.         MOVEM.l (a7)+,d1-d7/a0-a2
  2446.         MOVE.l  26(a4),a5
  2447.         JSR    -82(a5)
  2448.         MOVEM.l (a7)+,d1-d7/a0-a2
  2449.         MOVE.l  (a7)+,a3
  2450.         MOVE.l  a3,d1
  2451.         MOVE.l  18(a4),a6
  2452.         MOVE.l  22(a4),a5
  2453.         JSR    -122(a5)
  2454. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  2455.         LEA.l  _S141,a0
  2456.         MOVE.l  a3,-(a7)
  2457.         JSR     PB_CopyString
  2458.         MOVEM.l d1-d7/a0-a2,-(a7)
  2459.         MOVEM.l d1-d7/a0-a2,-(a7)
  2460.         MOVE.l  30(a4),a5
  2461.         JSR    -66(a5)
  2462.         MOVEM.l (a7)+,d1-d7/a0-a2
  2463.         MOVE.l  26(a4),a5
  2464.         JSR    -82(a5)
  2465.         MOVEM.l (a7)+,d1-d7/a0-a2
  2466.         LEA.l  _S142,a0
  2467.         JSR     PB_CopyString
  2468.         MOVEM.l d1-d7/a0-a2,-(a7)
  2469.         MOVEM.l d1-d7/a0-a2,-(a7)
  2470.         MOVE.l  30(a4),a5
  2471.         JSR    -56(a5)
  2472.         MOVEM.l (a7)+,d1-d7/a0-a2
  2473.         MOVE.l  26(a4),a5
  2474.         JSR    -82(a5)
  2475.         MOVEM.l (a7)+,d1-d7/a0-a2
  2476.         LEA.l  _S143,a0
  2477.         JSR     PB_CopyString
  2478.         MOVEM.l d1-d7/a0-a2,-(a7)
  2479.         MOVEM.l d1-d7/a0-a2,-(a7)
  2480.         MOVE.l  30(a4),a5
  2481.         JSR    -100(a5)
  2482.         MOVEM.l (a7)+,d1-d7/a0-a2
  2483.         MOVE.l  26(a4),a5
  2484.         JSR    -82(a5)
  2485.         MOVEM.l (a7)+,d1-d7/a0-a2
  2486.         MOVE.l  (a7)+,a3
  2487.         MOVE.l  a3,d1
  2488.         MOVE.l  18(a4),a6
  2489.         MOVE.l  22(a4),a5
  2490.         JSR    -122(a5)
  2491. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  2492.         MOVEM.l d1-d7/a0-a2,-(a7)
  2493.         MOVE.w  #320,d1
  2494.         EXT.l   d1
  2495.         MOVE.w  #200,d2
  2496.         EXT.l   d2
  2497.         MOVEQ   #3,d3
  2498.         MOVEQ   #0,d4
  2499.         MOVEQ   #1,d0
  2500.         MOVE.l  14(a4),a6
  2501.         MOVE.l  30(a4),a5
  2502.         JSR    -184(a5)
  2503.         MOVEM.l (a7)+,d1-d7/a0-a2
  2504.         TST.l   d0
  2505.         BEQ    _EndIf38
  2506. ;    Delay(50)
  2507.         MOVEQ   #50,d1
  2508.         MOVE.l  18(a4),a6
  2509.         MOVE.l  22(a4),a5
  2510.         JSR    -160(a5)
  2511. ;    CloseScreen(1)
  2512.         MOVEQ   #1,d0
  2513.         MOVE.l  14(a4),a6
  2514.         MOVE.l  30(a4),a5
  2515.         JSR    -344(a5)
  2516. ;  EndIf
  2517. _EndIf38
  2518. ;  UseScreen(0)
  2519.         MOVEQ   #0,d0
  2520.         MOVE.l  30(a4),a5
  2521.         JSR    -14(a5)
  2522. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  2523.         MOVE.w  #255,d1
  2524.         EXT.l   d1
  2525.         MOVE.w  #255,d2
  2526.         EXT.l   d2
  2527.         MOVEQ   #0,d3
  2528.         MOVE.w  #255,d0
  2529.         EXT.l   d0
  2530.         MOVE.l  10(a4),a6
  2531.         MOVE.l  30(a4),a5
  2532.         JSR    -228(a5)
  2533.         MOVE.w  d0,4(a4)
  2534. ;  PrintN("Pure White colour found at colour: "+Str(a))
  2535.         LEA.l  _S144,a0
  2536.         MOVE.l  a3,-(a7)
  2537.         JSR     PB_CopyString
  2538.         MOVEM.l d1-d7/a0-a2,-(a7)
  2539.         MOVE.w  4(a4),d0
  2540.         EXT.l   d0
  2541.         MOVE.l  26(a4),a5
  2542.         JSR    -82(a5)
  2543.         MOVEM.l (a7)+,d1-d7/a0-a2
  2544.         MOVE.l  (a7)+,a3
  2545.         MOVE.l  a3,d1
  2546.         MOVE.l  18(a4),a6
  2547.         MOVE.l  22(a4),a5
  2548.         JSR    -122(a5)
  2549. ;  ReleasePen(a)                     ; Release it to the system
  2550.         MOVE.w  4(a4),d0
  2551.         EXT.l   d0
  2552.         MOVE.l  10(a4),a6
  2553.         MOVE.l  30(a4),a5
  2554.         JSR    -110(a5)
  2555. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  2556.         MOVEM.l d1-d7/a0-a2,-(a7)
  2557.         LEA.l  _S145,a0
  2558.         MOVEQ   #1,d0
  2559.         MOVE.l  14(a4),a6
  2560.         MOVE.l  30(a4),a5
  2561.         JSR    -340(a5)
  2562.         MOVEM.l (a7)+,d1-d7/a0-a2
  2563.         TST.l   d0
  2564.         BEQ    _EndIf39
  2565. ;    PrintN("Workbench screen found !")
  2566.         LEA.l  _S146,a0
  2567.         MOVE.l  a0,d1
  2568.         MOVE.l  18(a4),a6
  2569.         MOVE.l  22(a4),a5
  2570.         JSR    -122(a5)
  2571. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  2572.         LEA.l  _S147,a0
  2573.         MOVE.l  a0,d1
  2574.         MOVE.l  18(a4),a6
  2575.         MOVE.l  22(a4),a5
  2576.         JSR    -138(a5)
  2577.         MOVEM.l d1-d7/a0-a2,-(a7)
  2578.         MOVE.l  30(a4),a5
  2579.         JSR    -46(a5)
  2580.         MOVEM.l (a7)+,d1-d7/a0-a2
  2581.         MOVE.l  18(a4),a6
  2582.         MOVE.l  22(a4),a5
  2583.         JSR    -94(a5)
  2584. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  2585.         LEA.l  _S148,a0
  2586.         MOVE.l  a0,d1
  2587.         MOVE.l  18(a4),a6
  2588.         MOVE.l  22(a4),a5
  2589.         JSR    -138(a5)
  2590.         MOVEM.l d1-d7/a0-a2,-(a7)
  2591.         MOVE.l  30(a4),a5
  2592.         JSR    -38(a5)
  2593.         MOVEM.l (a7)+,d1-d7/a0-a2
  2594.         MOVE.l  18(a4),a6
  2595.         MOVE.l  22(a4),a5
  2596.         JSR    -54(a5)
  2597. ;    Delay(10)                       ; Flash the workbench screen !
  2598.         MOVEQ   #10,d1
  2599.         MOVE.l  18(a4),a6
  2600.         MOVE.l  22(a4),a5
  2601.         JSR    -160(a5)
  2602. ;    FlashScreen()
  2603.         MOVE.l  14(a4),a6
  2604.         MOVE.l  30(a4),a5
  2605.         JSR    -296(a5)
  2606. ;  Else
  2607.         JMP    _EndIf40
  2608. _EndIf39
  2609. ;    PrintN("Workbench screen isn't found ?!")
  2610.         LEA.l  _S149,a0
  2611.         MOVE.l  a0,d1
  2612.         MOVE.l  18(a4),a6
  2613.         MOVE.l  22(a4),a5
  2614.         JSR    -122(a5)
  2615. ;  Endif
  2616. _EndIf40
  2617. ; EndIf
  2618. _EndIf37
  2619. ; PrintN("Press the mouse to quit")
  2620.         LEA.l  _S150,a0
  2621.         MOVE.l  a0,d1
  2622.         MOVE.l  18(a4),a6
  2623.         MOVE.l  22(a4),a5
  2624.         JSR    -122(a5)
  2625. ; MouseWait()
  2626.         MOVE.l  10(a4),a6
  2627.         MOVE.l  22(a4),a5
  2628.         JSR    -156(a5)
  2629. ; End
  2630.         JMP    _PB_EOP
  2631. ; InitScreen(1) ; We will need 2 screens
  2632.         MOVEQ   #1,d0
  2633.         MOVE.l  6(a4),a6
  2634.         MOVE.l  30(a4),a5
  2635.         JSR    -252(a5)
  2636. ; If FindScreen(0,"") ; Find de default public screen
  2637.         MOVEM.l d1-d7/a0-a2,-(a7)
  2638.         LEA.l  _S151,a0
  2639.         MOVEQ   #0,d0
  2640.         MOVE.l  14(a4),a6
  2641.         MOVE.l  30(a4),a5
  2642.         JSR    -340(a5)
  2643.         MOVEM.l (a7)+,d1-d7/a0-a2
  2644.         TST.l   d0
  2645.         BEQ    _EndIf41
  2646. ;  Print("Screen address: ") : PrintNumberN(ScreenID())
  2647.         LEA.l  _S152,a0
  2648.         MOVE.l  a0,d1
  2649.         MOVE.l  18(a4),a6
  2650.         MOVE.l  22(a4),a5
  2651.         JSR    -138(a5)
  2652.         MOVEM.l d1-d7/a0-a2,-(a7)
  2653.         MOVE.l  30(a4),a5
  2654.         JSR    -70(a5)
  2655.         MOVEM.l (a7)+,d1-d7/a0-a2
  2656.         MOVE.l  18(a4),a6
  2657.         MOVE.l  22(a4),a5
  2658.         JSR    -54(a5)
  2659. ;  HideScreen() ; Hide it
  2660.         MOVE.l  14(a4),a6
  2661.         MOVE.l  30(a4),a5
  2662.         JSR    -258(a5)
  2663. ;  Delay(10)    ; Wait a little bit...
  2664.         MOVEQ   #10,d1
  2665.         MOVE.l  18(a4),a6
  2666.         MOVE.l  22(a4),a5
  2667.         JSR    -160(a5)
  2668. ;  ShowScreen() ; and show it !
  2669.         MOVE.l  14(a4),a6
  2670.         MOVE.l  30(a4),a5
  2671.         JSR    -20(a5)
  2672. ;  PrintN("Screen dimensions: "+Str(ScreenWidth())+"x"+Str(ScreenHeight())+"x"+Str(ScreenDepth()))
  2673.         LEA.l  _S153,a0
  2674.         MOVE.l  a3,-(a7)
  2675.         JSR     PB_CopyString
  2676.         MOVEM.l d1-d7/a0-a2,-(a7)
  2677.         MOVEM.l d1-d7/a0-a2,-(a7)
  2678.         MOVE.l  30(a4),a5
  2679.         JSR    -30(a5)
  2680.         MOVEM.l (a7)+,d1-d7/a0-a2
  2681.         MOVE.l  26(a4),a5
  2682.         JSR    -82(a5)
  2683.         MOVEM.l (a7)+,d1-d7/a0-a2
  2684.         LEA.l  _S154,a0
  2685.         JSR     PB_CopyString
  2686.         MOVEM.l d1-d7/a0-a2,-(a7)
  2687.         MOVEM.l d1-d7/a0-a2,-(a7)
  2688.         MOVE.l  30(a4),a5
  2689.         JSR    -80(a5)
  2690.         MOVEM.l (a7)+,d1-d7/a0-a2
  2691.         MOVE.l  26(a4),a5
  2692.         JSR    -82(a5)
  2693.         MOVEM.l (a7)+,d1-d7/a0-a2
  2694.         LEA.l  _S155,a0
  2695.         JSR     PB_CopyString
  2696.         MOVEM.l d1-d7/a0-a2,-(a7)
  2697.         MOVEM.l d1-d7/a0-a2,-(a7)
  2698.         MOVE.l  30(a4),a5
  2699.         JSR    -90(a5)
  2700.         MOVEM.l (a7)+,d1-d7/a0-a2
  2701.         MOVE.l  26(a4),a5
  2702.         JSR    -82(a5)
  2703.         MOVEM.l (a7)+,d1-d7/a0-a2
  2704.         MOVE.l  (a7)+,a3
  2705.         MOVE.l  a3,d1
  2706.         MOVE.l  18(a4),a6
  2707.         MOVE.l  22(a4),a5
  2708.         JSR    -122(a5)
  2709. ;  PrintN("MouseX: "+Str(ScreenMouseX())+", MouseY: "+Str(ScreenMouseY())+", ScreenBar height: "+Str(ScreenBarHeight()))
  2710.         LEA.l  _S156,a0
  2711.         MOVE.l  a3,-(a7)
  2712.         JSR     PB_CopyString
  2713.         MOVEM.l d1-d7/a0-a2,-(a7)
  2714.         MOVEM.l d1-d7/a0-a2,-(a7)
  2715.         MOVE.l  30(a4),a5
  2716.         JSR    -66(a5)
  2717.         MOVEM.l (a7)+,d1-d7/a0-a2
  2718.         MOVE.l  26(a4),a5
  2719.         JSR    -82(a5)
  2720.         MOVEM.l (a7)+,d1-d7/a0-a2
  2721.         LEA.l  _S157,a0
  2722.         JSR     PB_CopyString
  2723.         MOVEM.l d1-d7/a0-a2,-(a7)
  2724.         MOVEM.l d1-d7/a0-a2,-(a7)
  2725.         MOVE.l  30(a4),a5
  2726.         JSR    -56(a5)
  2727.         MOVEM.l (a7)+,d1-d7/a0-a2
  2728.         MOVE.l  26(a4),a5
  2729.         JSR    -82(a5)
  2730.         MOVEM.l (a7)+,d1-d7/a0-a2
  2731.         LEA.l  _S158,a0
  2732.         JSR     PB_CopyString
  2733.         MOVEM.l d1-d7/a0-a2,-(a7)
  2734.         MOVEM.l d1-d7/a0-a2,-(a7)
  2735.         MOVE.l  30(a4),a5
  2736.         JSR    -100(a5)
  2737.         MOVEM.l (a7)+,d1-d7/a0-a2
  2738.         MOVE.l  26(a4),a5
  2739.         JSR    -82(a5)
  2740.         MOVEM.l (a7)+,d1-d7/a0-a2
  2741.         MOVE.l  (a7)+,a3
  2742.         MOVE.l  a3,d1
  2743.         MOVE.l  18(a4),a6
  2744.         MOVE.l  22(a4),a5
  2745.         JSR    -122(a5)
  2746. ;  If OpenScreen(1,320,200,3,0)  ; Open a new screen, 320*200 - 8 colours
  2747.         MOVEM.l d1-d7/a0-a2,-(a7)
  2748.         MOVE.w  #320,d1
  2749.         EXT.l   d1
  2750.         MOVE.w  #200,d2
  2751.         EXT.l   d2
  2752.         MOVEQ   #3,d3
  2753.         MOVEQ   #0,d4
  2754.         MOVEQ   #1,d0
  2755.         MOVE.l  14(a4),a6
  2756.         MOVE.l  30(a4),a5
  2757.         JSR    -184(a5)
  2758.         MOVEM.l (a7)+,d1-d7/a0-a2
  2759.         TST.l   d0
  2760.         BEQ    _EndIf42
  2761. ;    Delay(50)
  2762.         MOVEQ   #50,d1
  2763.         MOVE.l  18(a4),a6
  2764.         MOVE.l  22(a4),a5
  2765.         JSR    -160(a5)
  2766. ;    CloseScreen(1)
  2767.         MOVEQ   #1,d0
  2768.         MOVE.l  14(a4),a6
  2769.         MOVE.l  30(a4),a5
  2770.         JSR    -344(a5)
  2771. ;  EndIf
  2772. _EndIf42
  2773. ;  UseScreen(0)
  2774.         MOVEQ   #0,d0
  2775.         MOVE.l  30(a4),a5
  2776.         JSR    -14(a5)
  2777. ;  a = ObtainBestPen(255,255,255,0)  ; Get the index of the pure white colour and lock it
  2778.         MOVE.w  #255,d1
  2779.         EXT.l   d1
  2780.         MOVE.w  #255,d2
  2781.         EXT.l   d2
  2782.         MOVEQ   #0,d3
  2783.         MOVE.w  #255,d0
  2784.         EXT.l   d0
  2785.         MOVE.l  10(a4),a6
  2786.         MOVE.l  30(a4),a5
  2787.         JSR    -228(a5)
  2788.         MOVE.w  d0,4(a4)
  2789. ;  PrintN("Pure White colour found at colour: "+Str(a))
  2790.         LEA.l  _S159,a0
  2791.         MOVE.l  a3,-(a7)
  2792.         JSR     PB_CopyString
  2793.         MOVEM.l d1-d7/a0-a2,-(a7)
  2794.         MOVE.w  4(a4),d0
  2795.         EXT.l   d0
  2796.         MOVE.l  26(a4),a5
  2797.         JSR    -82(a5)
  2798.         MOVEM.l (a7)+,d1-d7/a0-a2
  2799.         MOVE.l  (a7)+,a3
  2800.         MOVE.l  a3,d1
  2801.         MOVE.l  18(a4),a6
  2802.         MOVE.l  22(a4),a5
  2803.         JSR    -122(a5)
  2804. ;  ReleasePen(a)                     ; Release it to the system
  2805.         MOVE.w  4(a4),d0
  2806.         EXT.l   d0
  2807.         MOVE.l  10(a4),a6
  2808.         MOVE.l  30(a4),a5
  2809.         JSR    -110(a5)
  2810. ;  If FindScreen(1,"Workbench")      ; Find the WB Screen
  2811.         MOVEM.l d1-d7/a0-a2,-(a7)
  2812.         LEA.l  _S160,a0
  2813.         MOVEQ   #1,d0
  2814.         MOVE.l  14(a4),a6
  2815.         MOVE.l  30(a4),a5
  2816.         JSR    -340(a5)
  2817.         MOVEM.l (a7)+,d1-d7/a0-a2
  2818.         TST.l   d0
  2819.         BEQ    _EndIf43
  2820. ;    PrintN("Workbench screen found !")
  2821.         LEA.l  _S161,a0
  2822.         MOVE.l  a0,d1
  2823.         MOVE.l  18(a4),a6
  2824.         MOVE.l  22(a4),a5
  2825.         JSR    -122(a5)
  2826. ;    Print("Screen RastPort: ") : PrintNumber(ScreenRastPort())
  2827.         LEA.l  _S162,a0
  2828.         MOVE.l  a0,d1
  2829.         MOVE.l  18(a4),a6
  2830.         MOVE.l  22(a4),a5
  2831.         JSR    -138(a5)
  2832.         MOVEM.l d1-d7/a0-a2,-(a7)
  2833.         MOVE.l  30(a4),a5
  2834.         JSR    -46(a5)
  2835.         MOVEM.l (a7)+,d1-d7/a0-a2
  2836.         MOVE.l  18(a4),a6
  2837.         MOVE.l  22(a4),a5
  2838.         JSR    -94(a5)
  2839. ;    Print(", Screen ViewPort: ") : PrintNumberN(ScreenViewPort())
  2840.         LEA.l  _S163,a0
  2841.         MOVE.l  a0,d1
  2842.         MOVE.l  18(a4),a6
  2843.         MOVE.l  22(a4),a5
  2844.         JSR    -138(a5)
  2845.         MOVEM.l d1-d7/a0-a2,-(a7)
  2846.         MOVE.l  30(a4),a5
  2847.         JSR    -38(a5)
  2848.         MOVEM.l (a7)+,d1-d7/a0-a2
  2849.         MOVE.l  18(a4),a6
  2850.         MOVE.l  22(a4),a5
  2851.         JSR    -54(a5)
  2852. ;    Delay(10)                       ; Flash the workbench screen !
  2853.         MOVEQ   #10,d1
  2854.         MOVE.l  18(a4),a6
  2855.         MOVE.l  22(a4),a5
  2856.         JSR    -160(a5)
  2857. ;    FlashScreen()
  2858.         MOVE.l  14(a4),a6
  2859.         MOVE.l  30(a4),a5
  2860.         JSR    -296(a5)
  2861. ;  Else
  2862.         JMP    _EndIf44
  2863. _EndIf43
  2864. ;    PrintN("Workbench screen isn't found ?!")
  2865.         LEA.l  _S164,a0
  2866.         MOVE.l  a0,d1
  2867.         MOVE.l  18(a4),a6
  2868.         MOVE.l  22(a4),a5
  2869.         JSR    -122(a5)
  2870. ;  Endif
  2871. _EndIf44
  2872. ; EndIf
  2873. _EndIf41
  2874. ; PrintN("Press the mouse to quit")
  2875.         LEA.l  _S165,a0
  2876.         MOVE.l  a0,d1
  2877.         MOVE.l  18(a4),a6
  2878.         MOVE.l  22(a4),a5
  2879.         JSR    -122(a5)
  2880. ; MouseWait()
  2881.         MOVE.l  10(a4),a6
  2882.         MOVE.l  22(a4),a5
  2883.         JSR    -156(a5)
  2884. ; End
  2885. _PB_EOP
  2886. ;
  2887. ; CallEndFuncs()
  2888. ;
  2889.         MOVE.l  6(a4),d5
  2890.         MOVE.l  14(a4),a6
  2891.         MOVE.l  30(a4),a5
  2892.         JSR    -290(a5)
  2893. ;
  2894. ; FreeStrings()
  2895. ;
  2896.         MOVE.l  (a7)+,a1
  2897.         JSR    _PB_FreeVec
  2898.         MOVE.l  (a4),a0
  2899.         MOVEA.l $4,a6
  2900.         JSR    -702(a6)
  2901. ;
  2902. ; CloseAmigaLibs()
  2903. ;
  2904.         MOVE.l  6(a4),a6
  2905.         MOVE.l  10(a4),a1
  2906.         JSR    -414(a6)
  2907.         MOVE.l  14(a4),a1
  2908.         JSR    -414(a6)
  2909.         MOVE.l  18(a4),a1
  2910.         JSR    -414(a6)
  2911. ;
  2912. ; RemoveBank()
  2913. ;
  2914.         MOVE.l  a4,a1
  2915.         JSR    -690(a6)
  2916. ;
  2917. ; End Of Program
  2918. ;
  2919.         MOVEM.l (a7)+,d0-d7/a0-a6
  2920.         RTS
  2921. ;
  2922. _PB_AllocVec
  2923.         MOVE.l  #65536,d1
  2924.         MOVE.l  $4,a6
  2925.         JMP    -684(a6)
  2926. ;
  2927. _PB_FreeVec
  2928.         MOVE.l  $4,a6
  2929.         JMP    -690(a6)
  2930. ;
  2931. PB_AllocString
  2932.         MOVE.l  $4,a6
  2933.         MOVE.l  a0,d2
  2934.         TST.l   (a5)
  2935.         BEQ    _Skip_Free
  2936.         MOVE.l  (a5),a1
  2937.         MOVE.l  a1,a0
  2938. _PB_GetSize
  2939.         MOVE.b  (a0)+,d0
  2940.         BNE    _PB_GetSize
  2941.         SUB.l   a1,a0
  2942.         MOVE.l  a0,d0
  2943.         MOVE.l  (a4),a0
  2944.         JSR    -714(a6)
  2945. _Skip_Free
  2946.         MOVE.l  a3,d0
  2947.         SUB.l   d2,d0
  2948.         ADDQ.l  #1,d0
  2949.         MOVE.l  (a4),a0
  2950.         JSR    -708(a6)
  2951.         MOVE.l  d0,a0
  2952.         MOVE.l  d0,(a5)
  2953.         MOVE.l  d2,a1
  2954. _PB_CopyLoop
  2955.         MOVE.b  (a1)+,(a0)+
  2956.         BNE    _PB_CopyLoop
  2957.         MOVE.l  d2,a3
  2958.         RTS
  2959. ;
  2960. PB_CopyString
  2961.         CMP.l   #0,a0
  2962.         BEQ    _PB_CopyStringEnd
  2963. _PB_CopyStringLoop
  2964.         MOVE.b  (a0)+,(a3)+
  2965.         BNE    _PB_CopyStringLoop
  2966.         SUB.l   #1,a3
  2967. _PB_CopyStringEnd
  2968.         RTS
  2969. ;
  2970. _S1
  2971.         dc.b    "",0
  2972. _S2
  2973.         dc.b    "Screen address: ",0
  2974. _S3
  2975.         dc.b    "Screen dimensions: ",0
  2976. _S4
  2977.         dc.b    "x",0
  2978. _S5
  2979.         dc.b    "x",0
  2980. _S6
  2981.         dc.b    "MouseX: ",0
  2982. _S7
  2983.         dc.b    ", MouseY: ",0
  2984. _S8
  2985.         dc.b    ", ScreenBar height: ",0
  2986. _S9
  2987.         dc.b    "Pure White colour found at colour: ",0
  2988. _S10
  2989.         dc.b    "Workbench",0
  2990. _S11
  2991.         dc.b    "Workbench screen found !",0
  2992. _S12
  2993.         dc.b    "Screen RastPort: ",0
  2994. _S13
  2995.         dc.b    ", Screen ViewPort: ",0
  2996. _S14
  2997.         dc.b    "Workbench screen isn't found ?!",0
  2998. _S15
  2999.         dc.b    "Press the mouse to quit",0
  3000. _S16
  3001.         dc.b    "",0
  3002. _S17
  3003.         dc.b    "Screen address: ",0
  3004. _S18
  3005.         dc.b    "Screen dimensions: ",0
  3006. _S19
  3007.         dc.b    "x",0
  3008. _S20
  3009.         dc.b    "x",0
  3010. _S21
  3011.         dc.b    "MouseX: ",0
  3012. _S22
  3013.         dc.b    ", MouseY: ",0
  3014. _S23
  3015.         dc.b    ", ScreenBar height: ",0
  3016. _S24
  3017.         dc.b    "Pure White colour found at colour: ",0
  3018. _S25
  3019.         dc.b    "Workbench",0
  3020. _S26
  3021.         dc.b    "Workbench screen found !",0
  3022. _S27
  3023.         dc.b    "Screen RastPort: ",0
  3024. _S28
  3025.         dc.b    ", Screen ViewPort: ",0
  3026. _S29
  3027.         dc.b    "Workbench screen isn't found ?!",0
  3028. _S30
  3029.         dc.b    "Press the mouse to quit",0
  3030. _S31
  3031.         dc.b    "",0
  3032. _S32
  3033.         dc.b    "Screen address: ",0
  3034. _S33
  3035.         dc.b    "Screen dimensions: ",0
  3036. _S34
  3037.         dc.b    "x",0
  3038. _S35
  3039.         dc.b    "x",0
  3040. _S36
  3041.         dc.b    "MouseX: ",0
  3042. _S37
  3043.         dc.b    ", MouseY: ",0
  3044. _S38
  3045.         dc.b    ", ScreenBar height: ",0
  3046. _S39
  3047.         dc.b    "Pure White colour found at colour: ",0
  3048. _S40
  3049.         dc.b    "Workbench",0
  3050. _S41
  3051.         dc.b    "Workbench screen found !",0
  3052. _S42
  3053.         dc.b    "Screen RastPort: ",0
  3054. _S43
  3055.         dc.b    ", Screen ViewPort: ",0
  3056. _S44
  3057.         dc.b    "Workbench screen isn't found ?!",0
  3058. _S45
  3059.         dc.b    "Press the mouse to quit",0
  3060. _S46
  3061.         dc.b    "",0
  3062. _S47
  3063.         dc.b    "Screen address: ",0
  3064. _S48
  3065.         dc.b    "Screen dimensions: ",0
  3066. _S49
  3067.         dc.b    "x",0
  3068. _S50
  3069.         dc.b    "x",0
  3070. _S51
  3071.         dc.b    "MouseX: ",0
  3072. _S52
  3073.         dc.b    ", MouseY: ",0
  3074. _S53
  3075.         dc.b    ", ScreenBar height: ",0
  3076. _S54
  3077.         dc.b    "Pure White colour found at colour: ",0
  3078. _S55
  3079.         dc.b    "Workbench",0
  3080. _S56
  3081.         dc.b    "Workbench screen found !",0
  3082. _S57
  3083.         dc.b    "Screen RastPort: ",0
  3084. _S58
  3085.         dc.b    ", Screen ViewPort: ",0
  3086. _S59
  3087.         dc.b    "Workbench screen isn't found ?!",0
  3088. _S60
  3089.         dc.b    "Press the mouse to quit",0
  3090. _S61
  3091.         dc.b    "",0
  3092. _S62
  3093.         dc.b    "Screen address: ",0
  3094. _S63
  3095.         dc.b    "Screen dimensions: ",0
  3096. _S64
  3097.         dc.b    "x",0
  3098. _S65
  3099.         dc.b    "x",0
  3100. _S66
  3101.         dc.b    "MouseX: ",0
  3102. _S67
  3103.         dc.b    ", MouseY: ",0
  3104. _S68
  3105.         dc.b    ", ScreenBar height: ",0
  3106. _S69
  3107.         dc.b    "Pure White colour found at colour: ",0
  3108. _S70
  3109.         dc.b    "Workbench",0
  3110. _S71
  3111.         dc.b    "Workbench screen found !",0
  3112. _S72
  3113.         dc.b    "Screen RastPort: ",0
  3114. _S73
  3115.         dc.b    ", Screen ViewPort: ",0
  3116. _S74
  3117.         dc.b    "Workbench screen isn't found ?!",0
  3118. _S75
  3119.         dc.b    "Press the mouse to quit",0
  3120. _S76
  3121.         dc.b    "",0
  3122. _S77
  3123.         dc.b    "Screen address: ",0
  3124. _S78
  3125.         dc.b    "Screen dimensions: ",0
  3126. _S79
  3127.         dc.b    "x",0
  3128. _S80
  3129.         dc.b    "x",0
  3130. _S81
  3131.         dc.b    "MouseX: ",0
  3132. _S82
  3133.         dc.b    ", MouseY: ",0
  3134. _S83
  3135.         dc.b    ", ScreenBar height: ",0
  3136. _S84
  3137.         dc.b    "Pure White colour found at colour: ",0
  3138. _S85
  3139.         dc.b    "Workbench",0
  3140. _S86
  3141.         dc.b    "Workbench screen found !",0
  3142. _S87
  3143.         dc.b    "Screen RastPort: ",0
  3144. _S88
  3145.         dc.b    ", Screen ViewPort: ",0
  3146. _S89
  3147.         dc.b    "Workbench screen isn't found ?!",0
  3148. _S90
  3149.         dc.b    "Press the mouse to quit",0
  3150. _S91
  3151.         dc.b    "",0
  3152. _S92
  3153.         dc.b    "Screen address: ",0
  3154. _S93
  3155.         dc.b    "Screen dimensions: ",0
  3156. _S94
  3157.         dc.b    "x",0
  3158. _S95
  3159.         dc.b    "x",0
  3160. _S96
  3161.         dc.b    "MouseX: ",0
  3162. _S97
  3163.         dc.b    ", MouseY: ",0
  3164. _S98
  3165.         dc.b    ", ScreenBar height: ",0
  3166. _S99
  3167.         dc.b    "Pure White colour found at colour: ",0
  3168. _S100
  3169.         dc.b    "Workbench",0
  3170. _S101
  3171.         dc.b    "Workbench screen found !",0
  3172. _S102
  3173.         dc.b    "Screen RastPort: ",0
  3174. _S103
  3175.         dc.b    ", Screen ViewPort: ",0
  3176. _S104
  3177.         dc.b    "Workbench screen isn't found ?!",0
  3178. _S105
  3179.         dc.b    "Press the mouse to quit",0
  3180. _S106
  3181.         dc.b    "",0
  3182. _S107
  3183.         dc.b    "Screen address: ",0
  3184. _S108
  3185.         dc.b    "Screen dimensions: ",0
  3186. _S109
  3187.         dc.b    "x",0
  3188. _S110
  3189.         dc.b    "x",0
  3190. _S111
  3191.         dc.b    "MouseX: ",0
  3192. _S112
  3193.         dc.b    ", MouseY: ",0
  3194. _S113
  3195.         dc.b    ", ScreenBar height: ",0
  3196. _S114
  3197.         dc.b    "Pure White colour found at colour: ",0
  3198. _S115
  3199.         dc.b    "Workbench",0
  3200. _S116
  3201.         dc.b    "Workbench screen found !",0
  3202. _S117
  3203.         dc.b    "Screen RastPort: ",0
  3204. _S118
  3205.         dc.b    ", Screen ViewPort: ",0
  3206. _S119
  3207.         dc.b    "Workbench screen isn't found ?!",0
  3208. _S120
  3209.         dc.b    "Press the mouse to quit",0
  3210. _S121
  3211.         dc.b    "",0
  3212. _S122
  3213.         dc.b    "Screen address: ",0
  3214. _S123
  3215.         dc.b    "Screen dimensions: ",0
  3216. _S124
  3217.         dc.b    "x",0
  3218. _S125
  3219.         dc.b    "x",0
  3220. _S126
  3221.         dc.b    "MouseX: ",0
  3222. _S127
  3223.         dc.b    ", MouseY: ",0
  3224. _S128
  3225.         dc.b    ", ScreenBar height: ",0
  3226. _S129
  3227.         dc.b    "Pure White colour found at colour: ",0
  3228. _S130
  3229.         dc.b    "Workbench",0
  3230. _S131
  3231.         dc.b    "Workbench screen found !",0
  3232. _S132
  3233.         dc.b    "Screen RastPort: ",0
  3234. _S133
  3235.         dc.b    ", Screen ViewPort: ",0
  3236. _S134
  3237.         dc.b    "Workbench screen isn't found ?!",0
  3238. _S135
  3239.         dc.b    "Press the mouse to quit",0
  3240. _S136
  3241.         dc.b    "",0
  3242. _S137
  3243.         dc.b    "Screen address: ",0
  3244. _S138
  3245.         dc.b    "Screen dimensions: ",0
  3246. _S139
  3247.         dc.b    "x",0
  3248. _S140
  3249.         dc.b    "x",0
  3250. _S141
  3251.         dc.b    "MouseX: ",0
  3252. _S142
  3253.         dc.b    ", MouseY: ",0
  3254. _S143
  3255.         dc.b    ", ScreenBar height: ",0
  3256. _S144
  3257.         dc.b    "Pure White colour found at colour: ",0
  3258. _S145
  3259.         dc.b    "Workbench",0
  3260. _S146
  3261.         dc.b    "Workbench screen found !",0
  3262. _S147
  3263.         dc.b    "Screen RastPort: ",0
  3264. _S148
  3265.         dc.b    ", Screen ViewPort: ",0
  3266. _S149
  3267.         dc.b    "Workbench screen isn't found ?!",0
  3268. _S150
  3269.         dc.b    "Press the mouse to quit",0
  3270. _S151
  3271.         dc.b    "",0
  3272. _S152
  3273.         dc.b    "Screen address: ",0
  3274. _S153
  3275.         dc.b    "Screen dimensions: ",0
  3276. _S154
  3277.         dc.b    "x",0
  3278. _S155
  3279.         dc.b    "x",0
  3280. _S156
  3281.         dc.b    "MouseX: ",0
  3282. _S157
  3283.         dc.b    ", MouseY: ",0
  3284. _S158
  3285.         dc.b    ", ScreenBar height: ",0
  3286. _S159
  3287.         dc.b    "Pure White colour found at colour: ",0
  3288. _S160
  3289.         dc.b    "Workbench",0
  3290. _S161
  3291.         dc.b    "Workbench screen found !",0
  3292. _S162
  3293.         dc.b    "Screen RastPort: ",0
  3294. _S163
  3295.         dc.b    ", Screen ViewPort: ",0
  3296. _S164
  3297.         dc.b    "Workbench screen isn't found ?!",0
  3298. _S165
  3299.         dc.b    "Press the mouse to quit",0
  3300. ;
  3301. PB_NullString
  3302.         dc.b    0
  3303.         Even
  3304. ;
  3305. _PBLibBank
  3306.         INCBIN  "PureBasic:Compilers/ExecutableLib"
  3307.